hg/stx-libview: SimpleView.st@5ab9c2eda29a (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	"
3196 43d42e7c388a MUST invoke #postBuildWith: / #postBuildAsSubcanvasWith:, tm parents: 3191 diff changeset	12	"{ Package: 'stx:libview' }"
43d42e7c388a MUST invoke #postBuildWith: / #postBuildAsSubcanvasWith:, tm parents: 3191 diff changeset	13
727 bf23a306b6f2 renamed PseudoView to DisplaySurface Claus Gittinger <cg@exept.de> parents: 724 diff changeset	14	DisplaySurface subclass:#SimpleView
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	15	instanceVariableNames:'superView subViews components styleSheet resources border unused
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	16	viewShape top left flagBits relativeOrigin relativeExtent
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	17	relativeCorner originRule extentRule cornerRule insets layout
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	18	shown hiddenOnRealize name level margin innerClipRect shadowColor
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	19	lightColor bitGravity viewGravity controller windowGroup
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	20	preferredExtent explicitExtent dependents layoutManager
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	21	visibilityChannel helpKey dropTarget'
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	22	classVariableNames:'Grey CentPoint ViewSpacing DefaultStyle StyleSheet
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	23	DefaultViewBackgroundColor DefaultBorderColor DefaultLightColor
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	24	DefaultShadowColor DefaultBorderWidth DefaultFocusColor
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	25	DefaultFocusBorderWidth ReturnFocusWhenClosingModalBoxes
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	26	FlagOriginChanged FlagExtentChanged FlagCornerChanged
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	27	FlagExtentChangedBeforeCreated FlagCanTab
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	28	FlagRequestFocusOnPointerEnter
4407 d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	29	FlagDoNotRequestFocusOnPointerEnter FlagNativeWidget
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	30	FlagIsUnmappedModalBox FlagIsMDIChild FlagHiddenOnRealize
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	31	FlagHasExplicitExtent FlagTakeFocusWhenMapped'
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	32	poolDictionaries:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	33	category:'Views-Basic'
135 cf8e46015072 . claus parents: diff changeset	34	!
cf8e46015072 . claus parents: diff changeset	35
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	36	SimpleView class instanceVariableNames:'ClassResources DefaultFont'
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	37
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	38	"
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	39	No other class instance variables are inherited by this class.
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	40	"
140 0db355079dc4 . claus parents: 138 diff changeset	41	!
135 cf8e46015072 . claus parents: diff changeset	42
5293 3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	43	Notification subclass:#AboutToOpenBoxNotificationSignal
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	44	instanceVariableNames:''
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	45	classVariableNames:''
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	46	poolDictionaries:''
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	47	privateIn:SimpleView
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	48	!
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	49
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	50	Object subclass:#ViewShape
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	51	instanceVariableNames:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	52	classVariableNames:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	53	poolDictionaries:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	54	privateIn:SimpleView
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	55	!
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	56
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	57	SimpleView::ViewShape subclass:#RoundViewShape
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	58	instanceVariableNames:''
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	59	classVariableNames:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	60	poolDictionaries:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	61	privateIn:SimpleView
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	62	!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	63
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	64	SimpleView::ViewShape subclass:#ArbitraryViewShape
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	65	instanceVariableNames:'viewShapeForm borderShapeForm'
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	66	classVariableNames:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	67	poolDictionaries:''
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	68	privateIn:SimpleView
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	69	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	70
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	71	!SimpleView class methodsFor:'documentation'!
135 cf8e46015072 . claus parents: diff changeset	72
cf8e46015072 . claus parents: diff changeset	73	copyright
cf8e46015072 . claus parents: diff changeset	74	"
cf8e46015072 . claus parents: diff changeset	75	COPYRIGHT (c) 1989 by Claus Gittinger
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	76	All Rights Reserved
135 cf8e46015072 . claus parents: diff changeset	77
cf8e46015072 . claus parents: diff changeset	78	This software is furnished under a license and may be used
cf8e46015072 . claus parents: diff changeset	79	only in accordance with the terms of that license and with the
cf8e46015072 . claus parents: diff changeset	80	inclusion of the above copyright notice. This software may not
cf8e46015072 . claus parents: diff changeset	81	be provided or otherwise made available to, or used by, any
cf8e46015072 . claus parents: diff changeset	82	other person. No title to or ownership of the software is
cf8e46015072 . claus parents: diff changeset	83	hereby transferred.
cf8e46015072 . claus parents: diff changeset	84	"
cf8e46015072 . claus parents: diff changeset	85	!
cf8e46015072 . claus parents: diff changeset	86
cf8e46015072 . claus parents: diff changeset	87	documentation
cf8e46015072 . claus parents: diff changeset	88	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	89	this class implements functions common to all Views which do not work on / show a model.
135 cf8e46015072 . claus parents: diff changeset	90	Previously, all of this functionality used to be in the old View class, but has been
4907 9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	91	separated into this new SimpleView (which does not know about models) and the new View,
4898 fddb9d0c1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 4897 diff changeset	92	which does so.
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	93	I'd prefer to call this class View and the current View class a ModelView,
4898 fddb9d0c1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 4897 diff changeset	94	but for backward compatibility it is better to leave things the way they are
fddb9d0c1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 4897 diff changeset	95	(there are simply too many subclasses of View around...).
fddb9d0c1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 4897 diff changeset	96
4907 9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	97	Instances of SimpleView are seldom used directly, most views in the system inherit
4898 fddb9d0c1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 4897 diff changeset	98	from this class. However, sometimes a view is needed to create a dummy view for framing
135 cf8e46015072 . claus parents: diff changeset	99	or layout purposes.
cf8e46015072 . claus parents: diff changeset	100
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	101	[Instance variables:]
135 cf8e46015072 . claus parents: diff changeset	102
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	103	superView <View> my superview i.e. the view I am in
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	104
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	105	subViews <Collection> the collection of subviews
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	106	These are the views proper.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	107
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	108	components <Collection> collection of gadgets (will be merged with subViews, soon)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	109	These are lightweight gadgets (not seen by windows/x11).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	110
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	111	styleSheet <ResourcePack> contains widget attributes (see libview/styles/*.style)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	112
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	113	resources <ResourcePack> contains national language translations (see lib/resources/.rs)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	114
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	115	border <Border> color and width of border
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	116
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	117	unused <nil> to keep the instVar size constant
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	118
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	119	viewShape <Form> shape of view & border (if device supports it)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	120
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	121	top <Number> actual top coordinate (pixels) in superview
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	122
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	123	left <Number> actual left coordinate (pixels) in superview
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	124
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	125	flagBits <Integer> flag bits (used to be individual booleans)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	126	extendChanged true if extend changed during setup
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	127	originChanged true if origin changed during setup
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	128
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	129	relativeOrigin <Number> relative origin in percent within superview
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	130
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	131	relativeExtent <Number> relative extent in percent within superview
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	132
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	133	relativeCorner <Number> relative corner in percent within superview
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	134
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	135	originRule <Block> rule to compute origin if superview changes size
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	136
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	137	extentRule <Block> rule to compute extent if superview changes size
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	138
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	139	cornerRule <Block> rule to compute corner if superview changes size
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	140
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	141	insets <Array> array with top, left, bottom & right insets (or nil)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	142
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	143	layout <LayoutObject> not yet implemented - will replace the above layout
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	144	variables.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	145
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	146	shown <Boolean> true if visible (false if iconified, unmapped or covered)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	147
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	148	hiddenOnRealize <Boolean> dont show automatically when superview is realized
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	149
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	150	name <String> my name (future use for resources)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	151
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	152	level (**) <Number> 3D level relative to superview
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	153
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	154	margin <Number> convenient margin; that is the number of pixels
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	155	which are taken up by border plus 3D level
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	156	(i.e. borderWidth + level abs)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	157
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	158	innerClipRect <Rectangle> convenient inner clip (minus margin)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	159
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	160	shadowColor (**) <Color> color used to draw 3D shadowed edges
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	161
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	162	lightColor (**) <Color> color used to draw 3D lighted edges
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	163
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	164	bitGravity <nil \| Symbol> gravity of contents (if device supports it)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	165
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	166	viewGravity <nil \| Symbol> gravity of view (if device supports it)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	167
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	168	controller <nil \| Controller> the controller (if any)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	169
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	170	windowGroup <WindowGroup> the windowGroup
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	171
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	172	preferredExtent(*) <nil \| Point> preferredExtent overWrite
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	173	if nonNil, the widget will not compute
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	174	its pref-extent, but use that value.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	175
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	176	explicitExtent(*) <nil \| Point> preferredExtent overWrite
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	177	if nonNil, the widget will not compute
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	178	its pref-extent, but use that value.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	179
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	180	dependents <nil \| Collection> who depends on me
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	181
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	182	layoutManager
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	183
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	184	visibilityChannel
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	185
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	186	helpKey
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	187
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	188	dropTarget
135 cf8e46015072 . claus parents: diff changeset	189
5022 72bea2a21ae6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5021 diff changeset	190	(*) about to be changed to use preferredExtent as a cache and explicitExtent as
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	191	an overwrite value.
5456 0df0f5ce9d91 changed: #documentation Claus Gittinger <cg@exept.de> parents: 5436 diff changeset	192
0df0f5ce9d91 changed: #documentation Claus Gittinger <cg@exept.de> parents: 5436 diff changeset	193	(**) We have recently started to change the system to use borders instead of separate
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	194	borderWidth, borderColor, level, shadow- and lightColors.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	195	Expect more changes here in the near future..
135 cf8e46015072 . claus parents: diff changeset	196
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	197	[Class variables:]
135 cf8e46015072 . claus parents: diff changeset	198
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	199	Grey <Color> the color grey - its used so often
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	200
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	201	ViewSpacing <Number> preferred spacing between views; 1mm
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	202
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	203	CentPoint <Point> 100 @ 100 - its used so often
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	204
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	205	StyleSheet <ResourcePack> contains all view-style specifics
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	206
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	207	ReturnFocusWhenClosingModalBoxes if true, a closing modalBox returns
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	208	<Boolean> the keyboard focus to the view which was
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	209	active when the box was opened.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	210	If false (the default), it is left to
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	211	window manager to assign a new focus.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	212	If running on olwm/olvwm (which requires an
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	213	explicit click to reassign a focus), it is
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	214	better to turn this on in a private.rc file.
135 cf8e46015072 . claus parents: diff changeset	215
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	216	[styleSheet parameters:]
135 cf8e46015072 . claus parents: diff changeset	217
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	218	popupShadow <Boolean> if true, popupViews show a shadow below
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	219
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	220	popupLevel <nil \| Integer> 3D level
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	221
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	222	borderWidth <nil \| Integer> borderWidth (ignored in 3D styles)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	223
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	224	borderColor <nil \| Color> borderColor (ignored in 3D styles)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	225
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	226	viewBackground <nil \| Color> views background
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	227
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	228	shadowColor <nil \| Color> color for shadow edges (ignored in 2D styles)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	229
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	230	lightColor <nil \| Color> color for light edges (ignored in 2D styles)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	231
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	232	font <nil \| Font> font to use
135 cf8e46015072 . claus parents: diff changeset	233
cf8e46015072 . claus parents: diff changeset	234
cf8e46015072 . claus parents: diff changeset	235	TODO:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	236	get rid of relativeOrigin, relativeCorner, originRule, extentRule,
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	237	and insets; replace by a single object which defines the size
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	238	(mhmh - ST-80 seems to call this LayoutFrame ?)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	239	-> be prepared for a change here in the near future and ONLY use
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	240	access methods to get those instance variables' values
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	241
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	242	get rid of 3D level & margin, move it to extra wrappers
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	243	(although this will make view setup more complicated, it will remove
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	244	complexity from the internals of view. Also, it will allow for more
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	245	varieties of borders.)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	246
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	247	add components (could also call them gadgets or lightweight views)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	248	- views are expensive in terms of X resources. This would make all
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	249	framing/edge and panel helper views become cheap ST objects, instead
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	250	of views.
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
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	253	[see also:]
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	254	StandardSystemView DialogBox
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	255	WindowGroup WindowEvent
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	256	Layout
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	257	( introduction to view programming :html: programming/viewintro.html )
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	258
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	259	[author:]
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	260	Claus Gittinger
135 cf8e46015072 . claus parents: diff changeset	261	"
151 8123ec03c52f . claus parents: 145 diff changeset	262	!
8123ec03c52f . claus parents: 145 diff changeset	263
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	264	examples
151 8123ec03c52f . claus parents: 145 diff changeset	265	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	266	(all examples below use different viewBackgrounds,
151 8123ec03c52f . claus parents: 145 diff changeset	267	to make the individual subviews visible)
8123ec03c52f . claus parents: 145 diff changeset	268
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	269	a subView in a topView:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	270	[exBegin]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	271	\|top v\|
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	272
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	273	top := StandardSystemView new.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	274	v := View new.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	275	v origin:0.25 @ 0.25 corner:0.75 @ 0.75.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	276	top addSubView:v.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	277	top open
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	278	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	279
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	280
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	281	the same, a bit more compact:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	282	[exBegin]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	283	\|top v\|
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	284
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	285	top := StandardSystemView new.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	286	v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:top.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	287	top open
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	288	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	289
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	290
151 8123ec03c52f . claus parents: 145 diff changeset	291	fixed position/size:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	292	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	293	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	294
8123ec03c52f . claus parents: 145 diff changeset	295	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	296	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	297
8123ec03c52f . claus parents: 145 diff changeset	298	v1 := View origin:10@10
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	299	corner:50@50
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	300	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	301	v2 := View origin:60@10
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	302	corner:150@100
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	303	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	304
8123ec03c52f . claus parents: 145 diff changeset	305	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	306	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	307
8123ec03c52f . claus parents: 145 diff changeset	308	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	309	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	310
8123ec03c52f . claus parents: 145 diff changeset	311	same, using ST-80 way of bulding up view hierarchies
8123ec03c52f . claus parents: 145 diff changeset	312	(recommended, if you plan to port applications later)
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	313	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	314	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	315
8123ec03c52f . claus parents: 145 diff changeset	316	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	317	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	318
8123ec03c52f . claus parents: 145 diff changeset	319	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	320	v1 origin:10@10 corner:50@50.
8123ec03c52f . claus parents: 145 diff changeset	321
8123ec03c52f . claus parents: 145 diff changeset	322	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	323	v2 origin:60@10 corner:150@100.
8123ec03c52f . claus parents: 145 diff changeset	324
8123ec03c52f . claus parents: 145 diff changeset	325	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	326	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	327
8123ec03c52f . claus parents: 145 diff changeset	328	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	329	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	330
8123ec03c52f . claus parents: 145 diff changeset	331	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	332	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	333
8123ec03c52f . claus parents: 145 diff changeset	334	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	335	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	336
8123ec03c52f . claus parents: 145 diff changeset	337	fixed origin, variable size:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	338	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	339	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	340
8123ec03c52f . claus parents: 145 diff changeset	341	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	342	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	343
8123ec03c52f . claus parents: 145 diff changeset	344	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	345	v1 origin:10@10 corner:50@0.5.
8123ec03c52f . claus parents: 145 diff changeset	346
8123ec03c52f . claus parents: 145 diff changeset	347	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	348	v2 origin:60@10 corner:150@0.5.
8123ec03c52f . claus parents: 145 diff changeset	349
8123ec03c52f . claus parents: 145 diff changeset	350	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	351	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	352
8123ec03c52f . claus parents: 145 diff changeset	353	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	354	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	355
8123ec03c52f . claus parents: 145 diff changeset	356	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	357	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	358
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	359	fixed origin, variable size,
151 8123ec03c52f . claus parents: 145 diff changeset	360	bottomInset for constant distance from bottom:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	361	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	362	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	363
8123ec03c52f . claus parents: 145 diff changeset	364	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	365	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	366
8123ec03c52f . claus parents: 145 diff changeset	367	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	368	v1 origin:10@10 corner:50@1.0.
8123ec03c52f . claus parents: 145 diff changeset	369	v1 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	370
8123ec03c52f . claus parents: 145 diff changeset	371	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	372	v2 origin:60@10 corner:150@1.0.
8123ec03c52f . claus parents: 145 diff changeset	373	v2 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	374
8123ec03c52f . claus parents: 145 diff changeset	375	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	376	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	377
8123ec03c52f . claus parents: 145 diff changeset	378	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	379	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	380
8123ec03c52f . claus parents: 145 diff changeset	381	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	382	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	383
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	384	variable origin, variable size,
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	385	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	386	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	387
8123ec03c52f . claus parents: 145 diff changeset	388	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	389	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	390
8123ec03c52f . claus parents: 145 diff changeset	391	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	392	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	393
8123ec03c52f . claus parents: 145 diff changeset	394	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	395	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	396
8123ec03c52f . claus parents: 145 diff changeset	397	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	398	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	399
8123ec03c52f . claus parents: 145 diff changeset	400	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	401	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	402
8123ec03c52f . claus parents: 145 diff changeset	403	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	404	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	405
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	406	variable origin, variable size,
151 8123ec03c52f . claus parents: 145 diff changeset	407	insets for some constant distance
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	408	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	409	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	410
8123ec03c52f . claus parents: 145 diff changeset	411	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	412	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	413
8123ec03c52f . claus parents: 145 diff changeset	414	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	415	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	416	v1 rightInset:5.
8123ec03c52f . claus parents: 145 diff changeset	417
8123ec03c52f . claus parents: 145 diff changeset	418	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	419	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	420	v2 leftInset:5.
8123ec03c52f . claus parents: 145 diff changeset	421
8123ec03c52f . claus parents: 145 diff changeset	422	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	423	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	424
8123ec03c52f . claus parents: 145 diff changeset	425	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	426	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	427
8123ec03c52f . claus parents: 145 diff changeset	428	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	429	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	430
8123ec03c52f . claus parents: 145 diff changeset	431	using layout objects (ST-80 style):
8123ec03c52f . claus parents: 145 diff changeset	432	fully specifying the frame
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	433	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	434	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	435
8123ec03c52f . claus parents: 145 diff changeset	436	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	437	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	438
8123ec03c52f . claus parents: 145 diff changeset	439	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	440	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	441
8123ec03c52f . claus parents: 145 diff changeset	442	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	443	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	444
8123ec03c52f . claus parents: 145 diff changeset	445	top add:v1 in:(LayoutFrame new
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	446	leftFraction:0.25;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	447	rightFraction:0.75;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	448	topFraction:0.0;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	449	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	450	top add:v2 in:(LayoutFrame new
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	451	leftFraction:0.5;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	452	rightFraction:1.0;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	453	topFraction:0.5;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	454	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	455
8123ec03c52f . claus parents: 145 diff changeset	456	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	457	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	458
8123ec03c52f . claus parents: 145 diff changeset	459	another one, with offsets:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	460	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	461	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	462
8123ec03c52f . claus parents: 145 diff changeset	463	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	464	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	465
8123ec03c52f . claus parents: 145 diff changeset	466	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	467	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	468
8123ec03c52f . claus parents: 145 diff changeset	469	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	470	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	471
8123ec03c52f . claus parents: 145 diff changeset	472	top add:v1 in:(LayoutFrame new
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	473	leftFraction:0.0 offset:10;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	474	rightFraction:1.0 offset:-10;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	475	topFraction:0.0 offset:10;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	476	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	477	top add:v2 in:(LayoutFrame new
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	478	leftFraction:0.0 offset:30;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	479	rightFraction:1.0 offset:-30;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	480	topFraction:0.5 offset:10;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	481	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	482
8123ec03c52f . claus parents: 145 diff changeset	483	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	484	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	485
8123ec03c52f . claus parents: 145 diff changeset	486	specifying origin only. Extent is views preferred
8123ec03c52f . claus parents: 145 diff changeset	487	(notice, that plain views have some defaultExtent of 100@100)
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	488	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	489	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	490
8123ec03c52f . claus parents: 145 diff changeset	491	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	492	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	493
8123ec03c52f . claus parents: 145 diff changeset	494	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	495	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	496
8123ec03c52f . claus parents: 145 diff changeset	497	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	498	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	499
8123ec03c52f . claus parents: 145 diff changeset	500	top add:v1 in:(LayoutOrigin new
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	501	leftFraction:0.25;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	502	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	503	top add:v2 in:(LayoutOrigin new
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	504	leftFraction:0.5;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	505	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	506
8123ec03c52f . claus parents: 145 diff changeset	507	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	508	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	509
8123ec03c52f . claus parents: 145 diff changeset	510	same example, using buttons which compute their preferredBounds:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	511	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	512	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	513
8123ec03c52f . claus parents: 145 diff changeset	514	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	515	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	516
8123ec03c52f . claus parents: 145 diff changeset	517	v1 := Button label:'foo'.
8123ec03c52f . claus parents: 145 diff changeset	518	v2 := Button label:'a very long buttonLabel'.
8123ec03c52f . claus parents: 145 diff changeset	519
8123ec03c52f . claus parents: 145 diff changeset	520	v1 backgroundColor:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	521	v2 backgroundColor:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	522
8123ec03c52f . claus parents: 145 diff changeset	523	top add:v1 in:(LayoutOrigin new
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	524	leftFraction:0.25;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	525	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	526	top add:v2 in:(LayoutOrigin new
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	527	leftFraction:0.5;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	528	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	529
8123ec03c52f . claus parents: 145 diff changeset	530	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	531	[exEnd]
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	532
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	533	border:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	534	[exBegin]
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	535	\|top v1 v2\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	536
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	537	top := StandardSystemView new.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	538	top extent:300@300.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	539
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	540	v1 := View new.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	541	top add:v1 in:(10@10 corner: 30@30).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	542	v2 := View new.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	543	top add:v2 in:(30@30 corner: 50@50).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	544
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	545	v1 border:(SimpleBorder width:1 color:Color red).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	546	v2 border:(SimpleBorder width:1 color:Color blue).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	547	top open
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	548	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	549	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	550	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	551
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	552	examples_MDI
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	553	"
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	554	Currently, these are experimental and work under Windows only
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	555
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	556	an MDI child:
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	557	[exBegin]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	558	\|top v1 v2\|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	559
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	560	top := StandardSystemView new.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	561	top extent:450 @ 300.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	562	top name:'MDI Client'.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	563	top beMDIClientView.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	564	top open.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	565
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	566	v1 := View new.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	567	v1 viewBackground:Color red.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	568	v1 origin:50 @ 50 corner:150 @ 100.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	569	v1 beMDIChildView.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	570	top addSubView:v1.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	571
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	572	v2 := View new.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	573	v2 viewBackground:Color green.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	574	v2 origin:50 @ 50 corner:150 @ 100.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	575	v2 beMDIChildView.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	576	top addSubView:v2.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	577	[exEnd]
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	578	"
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	579	!
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	580
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	581	layoutComputation
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	582	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	583	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	584	- (old, to be eliminated mechanism)
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	585	based upon info found in
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	586	relativeOrigin / relativeCorner / relativeExtent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	587	originRule / cornerRule / extentRule
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	588
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	589	- (new, will migrate to that one)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	590	letting a layoutObject compute things
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	591
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	592	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	593	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	594	geometry is desired.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	595	However, having 6 instance variables in every view creates some overhead,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	596	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	597	relative-sized).
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	598	Therefore (and also to make porting of ST-80 apps easier), ST/X will migrate
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	599	to use layoutObjects.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	600	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	601	existing interfaces will (silently) create layoutObjects as appropriate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	602	However, you should remove all direct accesses to the above mentioned
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	603	instance variables, to be prepared for that change.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	604
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	605	Notice, that a view recomputes its size whenever its superview
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	606	changes size. This is done via:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	607	sizeChanged
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	608	-> allSubviews: superViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	609
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	610	If the geometry computation as performed in superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	611	is not powerful enough for your application, you can either:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	612	- redefine superViewChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	613	- create a special layoutObject which computes a new layout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	614	"
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	615	!
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	616
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	617	popupMenus
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	618	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	619	Due to historic reasons, there are multiple mechanisms for popupMenu
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	620	definition:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	621
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	622	- static menus
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	- dynamic menus from the view
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	625
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	626	- dynamic menus from the model / menuHolder
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	627
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	628
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	629	static menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	630	------------
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	631
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	632	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	633	has a constant menu which never changes.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	634	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	635	The menu is defined with:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	636
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	637	someView middleButtonMenu:<aPopUpMenu>
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	638
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	639	Compatibility note:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	640	static menus should no longer be used - their operation
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	641	is incompatible with ST-80 and ST/X's dynamic menus.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	642	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	643	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	644	(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	645
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	646	example:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	647	\|top v1 v2\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	648
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	649	top := StandardSystemView new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	650	top extent:300@300.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	651
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	652	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	653	v1 viewBackground:Color red.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	654
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	655	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	656	v2 viewBackground:Color yellow.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	657
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	658	v1 middleButtonMenu:(
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	659	PopUpMenu
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	660	labels:#('foo' 'bar')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	661	selectors:#(foo bar)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	662	receiver:v1
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	663	).
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	664
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	665	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	666
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	667
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	668
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	669	dynamic menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	670	-------------
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	671
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	672	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	673	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	674	(i.e. it may be different from the model).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	675	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	676	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	677
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	678	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	679	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	680	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	681	by textViews.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	682
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	683	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	684	Notice, that all menu messages are sent to the view (because no model was set)
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	685	- so the textView still performs the copy-function correctly
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	686	(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	687	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	688	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	689	(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	690
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	691	\|top v1 v2 holder\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	692
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	693	holder := Plug new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	694	holder respondTo:#menu1
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	695	with:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	696	v1 menuMessage:#otherMenu1.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	697	PopUpMenu
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	698	labels:#('foo' 'bar')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	699	selectors:#(foo bar).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	700	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	701	holder respondTo:#otherMenu1
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	702	with:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	703	v1 menuMessage:#menu1.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	704	PopUpMenu
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	705	labels:#('other foo' 'other bar')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	706	selectors:#(foo bar).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	707	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	708	holder respondTo:#menu2
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	709	with:[ PopUpMenu
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	710	labels:#('copy' 'bar2')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	711	selectors:#(copySelection bar2)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	712	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	713
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	714	top := StandardSystemView new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	715	top extent:300@300.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	716
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	717	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	718	v1 viewBackground:Color red.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	719
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	720	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	721	v2 contents:'pop me up'.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	722
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	723	v1 model:holder; menuMessage:#menu1.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	724	v2 menuHolder:holder; menuMessage:#menu2.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	725
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	726	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	727
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	728	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	729	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	730	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	731	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	732
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	733	example:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	734	(Notice: the executor understands the #copySelection message - therefore, the
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	735	views built-in copy is NOT performed
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	736	- it could be forwarded to the view, though.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	737	This could be useful to intercept/filter things).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	738
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	739	\|top v menuProvider menuExecutor \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	740
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	741	menuProvider := Plug new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	742	menuProvider respondTo:#menu
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	743	with:[ PopUpMenu
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	744	labels:#('copy' 'foo')
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	745	selectors:#(copySelection foo)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	746	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	747
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	748	menuExecutor := Plug new.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	749	menuExecutor respondTo:#copySelection
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	750	with:[Transcript showCR:'copy function'].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	751	menuExecutor respondTo:#foo
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	752	with:[Transcript showCR:'foo function'].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	753
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	754	top := StandardSystemView new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	755	top extent:300@300.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	756
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	757	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	758	v contents:'pop me up'.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	759
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	760	v menuHolder:menuProvider; menuMessage:#menu.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	761	v menuPerformer:menuExecutor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	762
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	763	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	764	"
135 cf8e46015072 . claus parents: diff changeset	765	! !
cf8e46015072 . claus parents: diff changeset	766
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	767	!SimpleView class methodsFor:'initialization'!
135 cf8e46015072 . claus parents: diff changeset	768
cf8e46015072 . claus parents: diff changeset	769	initialize
cf8e46015072 . claus parents: diff changeset	770	DefaultStyle isNil ifTrue:[
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	771	Font initialize.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	772	Form initialize.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	773	Color initialize.
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	774	].
0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	775	self == SimpleView ifTrue:[
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	776	Smalltalk addDependent:self "/ to get language changes
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	777	].
0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	778
365 347a478d8cf5 default returnFocus to false Claus Gittinger <cg@exept.de> parents: 364 diff changeset	779	ReturnFocusWhenClosingModalBoxes := false.
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	780
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	781	FlagOriginChanged := 2r0000000000001.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	782	FlagExtentChanged := 2r0000000000010.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	783	FlagCornerChanged := 2r0000000000100.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	784
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	785	FlagCanTab := 2r0000000001000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	786	FlagExtentChangedBeforeCreated := 2r0000000010000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	787	FlagRequestFocusOnPointerEnter := 2r0000000100000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	788	FlagDoNotRequestFocusOnPointerEnter := 2r0000001000000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	789	FlagNativeWidget := 2r0000010000000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	790	FlagIsUnmappedModalBox := 2r0000100000000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	791	FlagIsMDIChild := 2r0001000000000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	792
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	793	FlagHiddenOnRealize := 2r0010000000000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	794	FlagHasExplicitExtent := 2r0100000000000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	795	FlagTakeFocusWhenMapped := 2r1000000000000.
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	796
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	797	"Modified: / 09-12-2010 / 10:32:01 / cg"
135 cf8e46015072 . claus parents: diff changeset	798	!
cf8e46015072 . claus parents: diff changeset	799
cf8e46015072 . claus parents: diff changeset	800	postAutoload
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	801	(Screen notNil and:[Screen current notNil]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	802	self updateStyleCache.
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	803	]
135 cf8e46015072 . claus parents: diff changeset	804	! !
cf8e46015072 . claus parents: diff changeset	805
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	806	!SimpleView class methodsFor:'instance creation'!
135 cf8e46015072 . claus parents: diff changeset	807
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	808	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	809	"create a new view with given extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	810
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	811	^ self origin:nil extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	812	font:nil label:nil in:nil
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	815	extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	816	"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	817
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	818	^ self origin:nil extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	819	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	820	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	821
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	822	extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	823	"create a new view with given extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	824
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	825	^ self origin:nil extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	826	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	827	!
cf8e46015072 . claus parents: diff changeset	828
cf8e46015072 . claus parents: diff changeset	829	in:aView
cf8e46015072 . claus parents: diff changeset	830	"return a new view as a subview of aView.
cf8e46015072 . claus parents: diff changeset	831	If aView is nil, it is left unspecified, in which superview
cf8e46015072 . claus parents: diff changeset	832	the new view will be placed. The view can later be assigned
cf8e46015072 . claus parents: diff changeset	833	by adding it to the superview via #addSubView:.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	834	If its later realized and no superview has ever been set,
1918 a4042019bc8b no need to set the container twice in SimpleView class>>in: Claus Gittinger <cg@exept.de> parents: 1903 diff changeset	835	it will come up as a topview."
135 cf8e46015072 . claus parents: diff changeset	836
cf8e46015072 . claus parents: diff changeset	837	\|newView\|
cf8e46015072 . claus parents: diff changeset	838
cf8e46015072 . claus parents: diff changeset	839	newView := self basicNew.
cf8e46015072 . claus parents: diff changeset	840	aView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	841	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	842	"/ newView container:aView.
135 cf8e46015072 . claus parents: diff changeset	843	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	844	newView device:Screen current
135 cf8e46015072 . claus parents: diff changeset	845	].
cf8e46015072 . claus parents: diff changeset	846	newView initialize.
cf8e46015072 . claus parents: diff changeset	847	aView notNil ifTrue:[aView addSubView:newView].
cf8e46015072 . claus parents: diff changeset	848	^ newView
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	849
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	850	"Modified: 28.5.1996 / 20:24:58 / cg"
135 cf8e46015072 . claus parents: diff changeset	851	!
cf8e46015072 . claus parents: diff changeset	852
140 0db355079dc4 . claus parents: 138 diff changeset	853	label:label
0db355079dc4 . claus parents: 138 diff changeset	854	"create a new view with given label"
135 cf8e46015072 . claus parents: diff changeset	855
cf8e46015072 . claus parents: diff changeset	856	^ self origin:nil extent:nil borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	857	font:nil label:label in:nil
140 0db355079dc4 . claus parents: 138 diff changeset	858	!
0db355079dc4 . claus parents: 138 diff changeset	859
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	860	label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	861	"create a new view as subview of aView with given label"
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	^ self origin:nil extent:nil borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	864	font:nil label:label in:aView
269 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
1393 0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	867	model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	868	"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	869	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	870	subclasses may."
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	871
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	872	^ self new model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	873
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	874	"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	875	"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	876	!
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	877
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	878	on:aModel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	879	"create a new drawable on aModel"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	880
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	881	"although this one does not know about models,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	882	it can still send the model-assign message. This was done
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	883	to catch obsolete calls to on:aDevice.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	884	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	885	^ self new model:aModel.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	886	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	887
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	888	onSameDeviceAs:anotherView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	889	"create a view on the same device as anotherView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	890	Used with popUpMenus, which should be created on the device of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	891	its masterView."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	892
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	893	\|device\|
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	anotherView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	896	device := anotherView graphicsDevice.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	897	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	898	device := Screen current.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	899	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	900	^ self onDevice:device
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	901
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	902	"Modified: 28.5.1996 / 20:25:05 / cg"
269 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
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	905	origin:origin corner:corner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	906	"create a new view with given origin and extent"
135 cf8e46015072 . claus parents: diff changeset	907
140 0db355079dc4 . claus parents: 138 diff changeset	908	^ self origin:origin corner:corner borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	909	font:nil label:nil in:nil
135 cf8e46015072 . claus parents: diff changeset	910	!
cf8e46015072 . claus parents: diff changeset	911
cf8e46015072 . claus parents: diff changeset	912	origin:anOrigin corner:aCorner borderWidth:bw font:aFont label:aLabel in:aView
cf8e46015072 . claus parents: diff changeset	913	\|newView\|
cf8e46015072 . claus parents: diff changeset	914
cf8e46015072 . claus parents: diff changeset	915	aView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	916	newView := self basicNew.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	917	newView device:(aView graphicsDevice).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	918	newView initialize.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	919	aView addSubView:newView.
135 cf8e46015072 . claus parents: diff changeset	920	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	921	newView := self onDevice:Screen current
135 cf8e46015072 . claus parents: diff changeset	922	].
cf8e46015072 . claus parents: diff changeset	923	bw notNil ifTrue:[newView borderWidth:bw].
cf8e46015072 . claus parents: diff changeset	924	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	925	aCorner notNil ifTrue:[newView corner:aCorner].
cf8e46015072 . claus parents: diff changeset	926	aFont notNil ifTrue:[newView font:aFont].
cf8e46015072 . claus parents: diff changeset	927	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	928	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	929
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	930	"Modified: 28.5.1996 / 20:25:15 / cg"
135 cf8e46015072 . claus parents: diff changeset	931	!
cf8e46015072 . claus parents: diff changeset	932
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	933	origin:origin corner:corner borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	934	"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	935
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	936	^ self origin:origin corner:corner borderWidth:bw
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	937	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	938	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	939
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	940	origin:origin corner:corner in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	941	"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	942
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	943	^ self origin:origin corner:corner borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	944	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	945	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	946
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	947	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	948	"create a new view with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	949
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	950	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	951	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	952	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	953
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	954	origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	955	"create a new view with given origin, extent and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	956
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	957	^ self origin:origin extent:extent borderWidth:bw
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	958	font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	959	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	960
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	961	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	962	\|newView\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	963
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	964	aView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	965	newView := self basicNew.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	966	newView device:(aView graphicsDevice).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	967	newView initialize.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	968	aView addSubView:newView.
140 0db355079dc4 . claus parents: 138 diff changeset	969	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	970	newView := self onDevice:Screen current
140 0db355079dc4 . claus parents: 138 diff changeset	971	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	972	bw notNil ifTrue:[newView borderWidth:bw].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	973	anExtent notNil ifTrue:[newView extent:anExtent].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	974	anOrigin notNil ifTrue:[newView origin:anOrigin].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	975	aFont notNil ifTrue:[newView font:aFont].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	976	aLabel notNil ifTrue:[newView label:aLabel].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	977	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	978
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	979	"Modified: 28.5.1996 / 20:25:19 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	980	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	981
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	982	origin:origin extent:extent borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	983	"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	984	and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	985
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	986	^ self origin:origin extent:extent borderWidth:bw
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	987	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	988	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	989
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	990	origin:origin extent:extent font:aFont label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	991	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	992	font:nil label:label in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	993	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	994
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	995	origin:origin extent:extent font:aFont label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	996	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	997	font:aFont label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	998	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	999
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1000	origin:origin extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1001	"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	1002
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1003	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1004	font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1005	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1006
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1007	origin:origin extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1008	"create a new view with given origin, extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1009
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1010	^ self origin:origin extent:extent borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1011	font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	1012	!
cf8e46015072 . claus parents: diff changeset	1013
cf8e46015072 . claus parents: diff changeset	1014	origin:anOrigin extent:anExtent
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1015	label:aLabel icon:aForm
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1016	minExtent:minExtent maxExtent:maxExtent
135 cf8e46015072 . claus parents: diff changeset	1017	\|newView\|
cf8e46015072 . claus parents: diff changeset	1018
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1019	newView := self onDevice:Screen current.
135 cf8e46015072 . claus parents: diff changeset	1020	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	1021	anExtent notNil ifTrue:[newView extent:anExtent].
cf8e46015072 . claus parents: diff changeset	1022	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	1023	aForm notNil ifTrue:[newView icon:aForm].
cf8e46015072 . claus parents: diff changeset	1024	minExtent notNil ifTrue:[newView minExtent:minExtent].
cf8e46015072 . claus parents: diff changeset	1025	maxExtent notNil ifTrue:[newView maxExtent:maxExtent].
cf8e46015072 . claus parents: diff changeset	1026	^ newView
cf8e46015072 . claus parents: diff changeset	1027	!
cf8e46015072 . claus parents: diff changeset	1028
140 0db355079dc4 . claus parents: 138 diff changeset	1029	origin:origin in:aView
0db355079dc4 . claus parents: 138 diff changeset	1030	"create a new view as a subview of aView with given origin"
0db355079dc4 . claus parents: 138 diff changeset	1031
0db355079dc4 . claus parents: 138 diff changeset	1032	^ self origin:origin extent:nil borderWidth:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1033	font:nil label:nil in:aView
135 cf8e46015072 . claus parents: diff changeset	1034	! !
cf8e46015072 . claus parents: diff changeset	1035
5293 3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1036	!SimpleView class methodsFor:'Signal constants'!
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1037
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1038	aboutToOpenBoxNotificationSignal
5690 29d8a448659e comment: #aboutToOpenBoxNotificationSignal Claus Gittinger <cg@exept.de> parents: 5680 diff changeset	1039	"/ the following allows for knowledgable programmers to suppress dialog boxes,
29d8a448659e comment: #aboutToOpenBoxNotificationSignal Claus Gittinger <cg@exept.de> parents: 5680 diff changeset	1040	"/ (by proceeding with #abort) or to patch common controls right before opening...
29d8a448659e comment: #aboutToOpenBoxNotificationSignal Claus Gittinger <cg@exept.de> parents: 5680 diff changeset	1041
5293 3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1042	^ AboutToOpenBoxNotificationSignal
5690 29d8a448659e comment: #aboutToOpenBoxNotificationSignal Claus Gittinger <cg@exept.de> parents: 5680 diff changeset	1043
29d8a448659e comment: #aboutToOpenBoxNotificationSignal Claus Gittinger <cg@exept.de> parents: 5680 diff changeset	1044	"Modified: / 27-01-2011 / 17:35:00 / cg"
5293 3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1045	! !
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1046
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1047	!SimpleView class methodsFor:'change & update'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1048
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	1049	update:something with:aParameter from:changedObject
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	1050	changedObject == Smalltalk ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1051	(something == #Language or:[something == #LanguageTerritory]) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1052	"flush resources on language changes"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1053	self flushAllClassResources.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1054	self allSubInstancesDo:[:eachView \| eachView languageChanged].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1055	].
135 cf8e46015072 . claus parents: diff changeset	1056	]
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	1057
7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	1058	"Created: 15.6.1996 / 15:23:04 / cg"
135 cf8e46015072 . claus parents: diff changeset	1059	! !
cf8e46015072 . claus parents: diff changeset	1060
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1061	!SimpleView class methodsFor:'defaults'!
135 cf8e46015072 . claus parents: diff changeset	1062
5366 ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1063	defaultBackgroundColor
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1064	"return the default background color for drawing - usually,
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1065	that is the same as the viewBackgroundColor."
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1066
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1067	^ self defaultViewBackgroundColor
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1068
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1069	"
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1070	View defaultBackgroundColor
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1071	"
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1072
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1073	"Modified: 13.8.1997 / 19:37:55 / cg"
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1074	!
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1075
140 0db355079dc4 . claus parents: 138 diff changeset	1076	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1077	"return the default extent of my instances.
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1078	The value returned here is usually ignored, and
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1079	the value from preferredExtent taken instead."
140 0db355079dc4 . claus parents: 138 diff changeset	1080
0db355079dc4 . claus parents: 138 diff changeset	1081	CentPoint isNil ifTrue:[CentPoint := 100 @ 100].
0db355079dc4 . claus parents: 138 diff changeset	1082	^ CentPoint
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1083
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1084	"Modified: 22.4.1996 / 23:38:39 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	1085	!
0db355079dc4 . claus parents: 138 diff changeset	1086
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1087	defaultFont
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1088	\|f\|
0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1089
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1090	DefaultFont notNil ifTrue:[^ DefaultFont].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1091
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1092	DefaultFont isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1093	self == SimpleView ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1094	f := self superclass defaultFont.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1095	] ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1096	f := super defaultFont
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1097	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1098	].
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1099
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1100	f notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1101	DefaultFont := f.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1102	f := f onDevice:(Screen current).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1103	f notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1104	DefaultFont := f.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1105	]
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1106	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1107	^ DefaultFont
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	1108
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	1109	"Modified: 27.2.1996 / 02:20:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1110	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1111
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1112	defaultFont:aFont
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1113	"set the default font used for drawing"
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1114
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1115	\|f\|
39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1116
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1117	DefaultFont := aFont.
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1118	aFont notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1119	f := aFont onDevice:(Screen current).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1120	f notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1121	DefaultFont := f.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1122	]
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1123	]
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1124
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1125	"Modified: 18.3.1996 / 12:56:20 / cg"
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1126	!
9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1127
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1128	defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1129	"return the default view style"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1130
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1131	^ DefaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1132
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1133	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1134	View defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1135	"
135 cf8e46015072 . claus parents: diff changeset	1136	!
cf8e46015072 . claus parents: diff changeset	1137
cf8e46015072 . claus parents: diff changeset	1138	defaultStyle:aStyle
cf8e46015072 . claus parents: diff changeset	1139	"set the view style for new views"
cf8e46015072 . claus parents: diff changeset	1140
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	1141	DefaultStyle := aStyle.
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1142	(Screen notNil and:[Screen current notNil]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1143	self readStyleSheetAndUpdateAllStyleCaches.
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	1144	].
135 cf8e46015072 . claus parents: diff changeset	1145
cf8e46015072 . claus parents: diff changeset	1146	"
cf8e46015072 . claus parents: diff changeset	1147	View defaultStyle:#next. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1148	View defaultStyle:#motif. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1149	View defaultStyle:#iris. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1150	View defaultStyle:#st80. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1151	View defaultStyle:#normal. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1152	"
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1153
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1154	"Modified: / 15.9.1998 / 22:05:02 / cg"
135 cf8e46015072 . claus parents: diff changeset	1155	!
cf8e46015072 . claus parents: diff changeset	1156
1860 95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1157	defaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1158	"return the default view background"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1159
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1160	^ DefaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1161
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1162	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1163	View defaultViewBackgroundColor
1860 95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1164	"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1165
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1166	"Modified: 13.8.1997 / 19:37:55 / cg"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1167	!
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1168
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1169	readStyleSheet
3181 35d4e8a2bebd comment ps parents: 3180 diff changeset	1170	"(re)load the styleSheet."
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1171
4313 48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1172	\|iconLibraryClass \|
48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1173
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1174	DefaultStyle isNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1175	self setDefaultStyle
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1176	].
3002 3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1177
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1178	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1179	StyleSheet fileReadFailed ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1180	('SimpleView [warning]: ***** no styleSheet for ' , DefaultStyle , '-style.') errorPrintCR.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1181	DefaultStyle ~~ #normal ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1182	DefaultStyle := #normal.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1183	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1184
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1185	StyleSheet fileReadFailed ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1186	'SimpleView [warning]: not even a styleSheet for normal-style (using ugly defaults).' errorPrintCR.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1187	]
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1188	]
4313 48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1189	].
48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1190
48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1191	iconLibraryClass := StyleSheet at:#ToolbarIconLibrary.
48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1192	ToolbarIconLibrary := iconLibraryClass ? GenericToolbarIconLibrary.
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1193
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1194	"Created: / 15.9.1998 / 22:03:06 / cg"
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1195	!
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1196
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1197	readStyleSheetAndUpdateAllStyleCaches
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1198	"reload all style caches in all view classes.
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1199	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	1200
5591 992839870412 changed: #readStyleSheetAndUpdateAllStyleCaches Stefan Vogel <sv@exept.de> parents: 5590 diff changeset	1201	DefaultStyle notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1202	self readStyleSheet.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1203	self updateAllStyleCaches.
5591 992839870412 changed: #readStyleSheetAndUpdateAllStyleCaches Stefan Vogel <sv@exept.de> parents: 5590 diff changeset	1204	].
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1205
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1206	"Created: / 15.9.1998 / 22:03:59 / cg"
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1207	!
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1208
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1209	returnFocusWhenClosingModalBoxes
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1210	"return the current focus-return behavior.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1211	See #returnFocusWhenClosingModalBoxes: for a description."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1212
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1213	^ ReturnFocusWhenClosingModalBoxes
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1214	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1215
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1216	returnFocusWhenClosingModalBoxes:aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1217	"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	1218	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	1219	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	1220	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	1221	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	1222	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	1223	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	1224	it may be better to turn the focus-return off.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1225	You should add a corresponding expression into your private.rc or
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1226	display.rc file."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1227
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1228	ReturnFocusWhenClosingModalBoxes := aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1229
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1230	"
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1231	Dialog returnFocusWhenClosingModalBoxes:false
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1232	Dialog returnFocusWhenClosingModalBoxes:true
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1233	"
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1234	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1235
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1236	setDefaultStyle
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1237	\|defStyle\|
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1238
3185 98fd08dcf366 checkin from browser Stefan Vogel <sv@exept.de> parents: 3183 diff changeset	1239	DefaultStyle isNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1240	defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1241	defStyle notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1242	DefaultStyle := defStyle asSymbol.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1243	] ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1244	DefaultStyle := #mswindowsXP
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1245	].
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1246	].
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1247	!
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1248
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1249	styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1250	"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	1251
3923 5e0345a32742 stylesheet access Claus Gittinger <cg@exept.de> parents: 3922 diff changeset	1252	StyleSheet isNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1253	self updateAllStyleCaches.
3923 5e0345a32742 stylesheet access Claus Gittinger <cg@exept.de> parents: 3922 diff changeset	1254	].
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1255	^ StyleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1256
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1257	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1258	View styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1259	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1260
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1261	"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	1262	!
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1263
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1264	styleSheet:aViewStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1265	"set the view style from a style-sheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1266
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1267	StyleSheet := aViewStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1268	DefaultStyle := (StyleSheet at:'name' ifAbsent:'unknown') asSymbol.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1269	self updateAllStyleCaches.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1270	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1271
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1272	updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1273	"reload all style caches in all view classes.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1274	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	1275
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1276	(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	1277
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1278	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1279	tell all view classes to flush any
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1280	cached style-data
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1281	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1282	self changed:#style.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1283	SimpleView updateStyleCache.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1284	SimpleView allSubclassesDo:[:aClass \|
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1285	aClass defaultFont:nil.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1286	(aClass class includesSelector:#updateStyleCache) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1287	aClass updateStyleCache
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1288	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1289	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1290
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	View updateAllStyleCaches
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1293	"
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1294
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1295	"Modified: / 15.9.1998 / 22:04:15 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1296	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1297
135 cf8e46015072 . claus parents: diff changeset	1298	updateStyleCache
cf8e46015072 . claus parents: diff changeset	1299	"this method gets some heavily used style stuff and keeps
cf8e46015072 . claus parents: diff changeset	1300	it in class-variables for faster access.
cf8e46015072 . claus parents: diff changeset	1301	Subclasses should redefine this to load any cached style-values
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1302	into faster class variables as well. These should NOT do a
135 cf8e46015072 . claus parents: diff changeset	1303	super updateStyleCache, since this method is called for all view-classes
cf8e46015072 . claus parents: diff changeset	1304	anyway."
cf8e46015072 . claus parents: diff changeset	1305
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1306	<resource: #style (#viewSpacing #font #borderWidth #borderColor
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1307	#viewBackground #shadowColor #lightColor
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1308	#focusColor #focusBorderWidth)>
2292 8efc5272cf0b defaultStyle either from environmane (STX_VIEWSTYLE) Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	1309
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1310	\|bgGrey currentScreen\|
135 cf8e46015072 . claus parents: diff changeset	1311
cf8e46015072 . claus parents: diff changeset	1312	"
cf8e46015072 . claus parents: diff changeset	1313	when coming here the first time, we read the styleSheet
cf8e46015072 . claus parents: diff changeset	1314	and keep the values in fast class variables
cf8e46015072 . claus parents: diff changeset	1315	"
cf8e46015072 . claus parents: diff changeset	1316	StyleSheet isNil ifTrue:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1317	self setDefaultStyle.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1318	self readStyleSheet.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1319	].
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1320
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1321	currentScreen := Screen current ? Screen default.
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1322
135 cf8e46015072 . claus parents: diff changeset	1323	Grey := StyleSheet viewGrey.
cf8e46015072 . claus parents: diff changeset	1324	Grey isNil ifTrue:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1325	Grey := Color grey
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1326	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1327	Grey := Grey onDevice:currentScreen.
135 cf8e46015072 . claus parents: diff changeset	1328
151 8123ec03c52f . claus parents: 145 diff changeset	1329	StyleSheet fileReadFailed ifTrue:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1330	bgGrey := White
135 cf8e46015072 . claus parents: diff changeset	1331	] ifFalse:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1332	currentScreen hasGrayscales ifTrue:[
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1333	bgGrey := Grey
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1334	] ifFalse:[
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1335	bgGrey := White
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1336	]
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1337	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1338	bgGrey := bgGrey onDevice:currentScreen.
135 cf8e46015072 . claus parents: diff changeset	1339
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1340	ViewSpacing := StyleSheet at:#viewSpacing.
135 cf8e46015072 . claus parents: diff changeset	1341	ViewSpacing isNil ifTrue:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1342	ViewSpacing := currentScreen defaultStyleValueFor:#viewSpacing.
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1343	].
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1344
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1345	DefaultBorderColor := StyleSheet colorAt:#borderColor.
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1346	DefaultBorderColor isNil ifTrue:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1347	DefaultBorderColor := currentScreen defaultStyleValueFor:#borderColor
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1348	].
151 8123ec03c52f . claus parents: 145 diff changeset	1349
8123ec03c52f . claus parents: 145 diff changeset	1350	StyleSheet fileReadFailed ifTrue:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1351	DefaultBorderWidth := 1.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1352	DefaultShadowColor := Black.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1353	DefaultLightColor := White.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1354	DefaultFocusColor := Black.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1355	DefaultFocusBorderWidth := 1.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1356	DefaultViewBackgroundColor := White.
151 8123ec03c52f . claus parents: 145 diff changeset	1357	] ifFalse:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1358	DefaultBorderWidth := StyleSheet at:#borderWidth default:0.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1359	DefaultViewBackgroundColor := StyleSheet colorAt:#viewBackground default:bgGrey.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1360	DefaultShadowColor := StyleSheet colorAt:#shadowColor.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1361	DefaultLightColor := StyleSheet colorAt:#lightColor.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1362	DefaultFocusColor := StyleSheet colorAt:#focusColor default:Color red.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1363	DefaultFocusBorderWidth := StyleSheet at:'focusBorderWidth' default:2.
151 8123ec03c52f . claus parents: 145 diff changeset	1364	].
135 cf8e46015072 . claus parents: diff changeset	1365
526 3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1366	self == SimpleView ifTrue:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1367	DefaultFont := StyleSheet at:#font.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1368	DefaultFont isNil ifTrue:[
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1369	DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1370	].
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1371	DefaultFont := DefaultFont onDevice:currentScreen.
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1372	] ifFalse:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1373	DefaultFont := nil
135 cf8e46015072 . claus parents: diff changeset	1374	].
cf8e46015072 . claus parents: diff changeset	1375
cf8e46015072 . claus parents: diff changeset	1376	DefaultViewBackgroundColor isNil ifTrue:[
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1377	'SimpleView [warning]: bad viewBackground in style - using white' errorPrintCR.
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1378	DefaultViewBackgroundColor := White
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1379	].
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1380
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1381	"Modified: / 29-04-1997 / 11:16:52 / dq"
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1382	"Modified: / 20-12-2010 / 14:40:22 / cg"
135 cf8e46015072 . claus parents: diff changeset	1383	!
cf8e46015072 . claus parents: diff changeset	1384
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1385	viewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1386	"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	1387	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	1388	get a common look"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1389
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1390	^ ViewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1391	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1392
5354 4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1393	!SimpleView class methodsFor:'misc ui support'!
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1394
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1395	iconInBrowserSymbol
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1396	<resource: #programImage>
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1397
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1398	^ #windowClassBrowserIcon
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1399	! !
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1400
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1401	!SimpleView class methodsFor:'resources'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1402
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1403	classResources
4091 3995bf25130a classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 4069 diff changeset	1404	"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	1405
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1406	ClassResources isNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1407	ClassResources := super classResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1408	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1409	^ ClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1410	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1411
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1412	classResources:aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1413	"allow setting of the classResources"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1414
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1415	ClassResources := aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1416	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1417
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1418	flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1419	"flush all classes resource translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1420	Needed after a resource file has changed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1421
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1422	ResourcePack flushCachedResourcePacks.
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	1423	SimpleView withAllSubclassesDo:[:aClass \|
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1424	aClass flushClassResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1425	]
0db355079dc4 . claus parents: 138 diff changeset	1426
0db355079dc4 . claus parents: 138 diff changeset	1427	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1428	View flushAllClassResources
140 0db355079dc4 . claus parents: 138 diff changeset	1429	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1430	"to change the language:
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1431	Language := #en.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1432	Smalltalk changed:#Language.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1433	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1434	or:
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1435	Language := #de.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1436	Smalltalk changed:#Language.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1437	View flushAllClassResources
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1438	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1439	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1440
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1441	flushClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1442	"flush classes resource string translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1443	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1444
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1445	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1446	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1447
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1448	resources
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1449	"return the views resources -
5221 3c4682d4b409 comment only Claus Gittinger <cg@exept.de> parents: 5214 diff changeset	1450	that's a ResourcePack containing national language strings"
3c4682d4b409 comment only Claus Gittinger <cg@exept.de> parents: 5214 diff changeset	1451
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1452	^ self classResources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1453
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1454	"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	1455	!
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1456
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1457	updateClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1458	"flush classes resource string translations and reload them.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1459	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1460
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1461	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1462	self classResources
135 cf8e46015072 . claus parents: diff changeset	1463	! !
cf8e46015072 . claus parents: diff changeset	1464
3781 9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1465	!SimpleView class methodsFor:'startup'!
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1466
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1467	open
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1468	"create, realize the view - this topview and all its subviews will
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1469	run as a separate process with its own windowGroup"
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1470
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1471	^ self new open
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1472	!
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1473
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1474	openOnXScreenNamed:aScreenName
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1475	"create an instance of the view and open it
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1476	on some X display screen. The argument aScreenName must be
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1477	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	1478	For more info, read the document on multiple display
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1479	support and the documentation of the DeviceWorkstation class."
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1480
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1481	\|newDevice\|
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1482
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1483	[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1484	newDevice := XWorkstation newDispatchingFor:aScreenName.
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1485	] on:Screen deviceOpenErrorSignal do:[:ex\|
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1486	self warn:'Could not open display: ' , aScreenName.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1487	^ self
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1488	].
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1489	^ (self onDevice:newDevice) open.
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1490
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1491	"
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1492	FileBrowser openOnXScreenNamed:'bitsy:0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1493	FileBrowser openOnXScreenNamed:':0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1494	View openOnXScreenNamed:'bitsy:0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1495	"
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1496
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1497	"Modified: 13.1.1997 / 20:55:27 / cg"
3781 9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1498	! !
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1499
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	1500	!SimpleView methodsFor:'Compatibility-ST80'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1501
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1502	checkForEvents
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1503	"ST-80 compatibility:
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1504	check for any pending events and process them"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1505
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1506	(shown and:[windowGroup notNil]) ifTrue:[windowGroup processEvents].
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1507
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1508	"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	1509	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1510
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1511	closeAndUnschedule
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1512	"actually sent to a controller in VW...
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1513	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	1514
3316 b9cb3eac524e * empty log message * Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	1515	self topView destroy
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1516	!
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1517
3775 fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1518	displayOn:aGCOrStream
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1519	"ST-80 compatibility: (re-)display myself"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1520
3775 fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1521	"/ what a kludge - Dolphin and Squeak mean: printOn:;
fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1522	"/ ST/X (and some old ST80's) mean: draw-yourself on.
fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1523	(aGCOrStream isStream or:[aGCOrStream == Transcript]) ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1524	^ super displayOn:aGCOrStream
3774 a85ec40ac028 displayOn: confusion kludge tm parents: 3765 diff changeset	1525	].
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1526	self redraw
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1527
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1528	"Created: 4.6.1996 / 21:25:59 / cg"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1529	"Modified: 10.1.1997 / 19:46:58 / cg"
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1530	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1531
1432 23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1532	displayPendingInvalidation
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1533	"dummy - for ST-80 compatibility"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1534
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1535	"Created: 6.3.1997 / 15:17:14 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1536	"Modified: 6.3.1997 / 15:17:31 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1537	!
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1538
4515 ecbf26955b5b client:spec:builder: bogus masterApp handling Claus Gittinger <cg@exept.de> parents: 4502 diff changeset	1539	invalidateRectangle:aRectangle repairNow:doRepairNow
ecbf26955b5b client:spec:builder: bogus masterApp handling Claus Gittinger <cg@exept.de> parents: 4502 diff changeset	1540	self invalidate:aRectangle repairNow:doRepairNow
ecbf26955b5b client:spec:builder: bogus masterApp handling Claus Gittinger <cg@exept.de> parents: 4502 diff changeset	1541	!
ecbf26955b5b client:spec:builder: bogus masterApp handling Claus Gittinger <cg@exept.de> parents: 4502 diff changeset	1542
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1543	isEnabled
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1544	"return true, if this view is enabled (i.e. accepts user interaction).
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1545	Most views are enabled - only a few (buttons, SelectionInList etc.) can
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1546	be disabled.
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1547	#isEnabled is ST-80's equivalent of #enabled"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1548
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1549	^ self enabled
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1550	!
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1551
2061 25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1552	isOpen
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1553	"ST80 compatibility"
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1554
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1555	^ realized
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1556
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1557
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1558	!
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1559
2159 da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1560	lookPreferences:prefs
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1561	"ignored - but required for some apps"
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1562
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1563	"Created: / 19.6.1998 / 00:05:10 / cg"
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1564	!
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1565
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1566	newLayout:aLayoutObject
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1567	"set the layout object which controls my geometry.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1568	ST80-compatibility."
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1569
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1570	here layout:aLayoutObject.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1571
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1572	"Created: 3.3.1997 / 18:54:53 / cg"
1427 35214ddde67c checkin from browser ca parents: 1425 diff changeset	1573	!
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1574
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1575	refresh
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1576	self invalidate
3909 e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1577	!
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1578
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1579	takeKeyboardFocus
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1580	self requestFocus
151 8123ec03c52f . claus parents: 145 diff changeset	1581	! !
8123ec03c52f . claus parents: 145 diff changeset	1582
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	1583	!SimpleView methodsFor:'Compatibility-Squeak'!
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1584
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1585	insetDisplayBox
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1586	"Squeak mimicri: return my bounds"
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1587
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1588	^ 0@0 corner:(self corner)
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1589
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1590	! !
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1591
2450 06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1592	!SimpleView methodsFor:'accessing'!
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1593
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1594	client:anApplicationModel
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1595	"release existing components and generate new components from
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1596	the applications windowSpec.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1597	ATTENTION: this is a low level interface; postBuild is NOT invoked"
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1598
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1599	^ self client:anApplicationModel spec:#windowSpec
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1600
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1601
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1602	!
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1603
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1604	client:anApplication spec:aWindowSpecOrSelector
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1605	"release existing components and generate new components from
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1606	the applications windowSpec.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1607	ATTENTION: this is a low level interface; postBuild is NOT invoked"
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1608
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1609	^ self client:anApplication spec:aWindowSpecOrSelector builder:nil
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1610
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1611	!
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1612
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1613	client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1614	"release existing components and generate new components from
4484 97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1615	the given windowSpec, using the given builder."
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1616
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1617	self client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:false
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1618	!
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1619
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1620	client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder withMenu:withMenuBoolean
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1621	"release existing components and generate new components from
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1622	the given windowSpec, using the given builder.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1623	ATTENTION: this is a low level interface.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1624	TODO: this code is so ugly and badly designed - it must be redesigned
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1625	or at least well documented."
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1626
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1627	\|builder subSpec isApplicationModel thisApp savedView masterApp thisIsANewBuild\|
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1628
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1629	aWindowSpecOrSpecSymbol isNil ifTrue:[^ self].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1630
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1631	isApplicationModel := true.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1632
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1633	(builder := aBuilder) isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1634	"/ problem: anApplication could have no builder
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1635	"/ or anApplication could be a non-appModel (theoretically - only providing a spec)
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1636	builder := anApplication perform:#builder ifNotUnderstood:[isApplicationModel := false. nil].
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1637	builder isNil ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1638	isApplicationModel ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1639	anApplication createBuilder.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1640	builder := anApplication builder
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1641	] ifFalse:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1642	builder := UIBuilder new.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1643	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1644	]
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1645	].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1646
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1647	(subSpec := aWindowSpecOrSpecSymbol) isSymbol ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1648	anApplication isNil ifTrue:[^ self].
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1649	subSpec := anApplication interfaceSpecFor:aWindowSpecOrSpecSymbol.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1650	subSpec isNil ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1651	^ self
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1652	].
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1653	].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1654
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1655	"/ if the appl is not the master, but the masters builder is used,
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1656	"/ we have to temporarily change the builders window
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1657
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1658	masterApp := anApplication perform:#masterApplication ifNotUnderstood:[isApplicationModel := false. nil].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1659	thisApp := builder application.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1660	(isApplicationModel and:[anApplication ~~ thisApp]) ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1661	masterApp ~~ thisApp ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1662	self error:'should not happen' mayProceed:true.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1663	masterApp isNil ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1664	anApplication masterApplication:thisApp.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1665	].
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1666	].
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1667
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1668	builder application:anApplication.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1669	savedView := builder window.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1670	builder window:self.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1671	[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1672	anApplication buildSubCanvas:subSpec withMenu:withMenuBoolean withBuilder:builder.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1673	] ensure:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1674	builder window:savedView.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1675	builder application:thisApp.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1676	].
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1677	] ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1678	thisIsANewBuild := builder window isNil.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1679	thisIsANewBuild ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1680	builder window:self.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1681	anApplication buildSubCanvas:subSpec withMenu:withMenuBoolean withBuilder:builder.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1682	] ifFalse:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1683	"/ WARNING: in case of rebuilding, we do NOT invoke pre- and postBuilds
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1684	builder buildFromSpec:subSpec in:self.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1685	]
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1686	].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1687
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1688	"/ postBuildWith: will be called twice if code below is enabled
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1689	"/ notAnAppModel isNil ifTrue:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1690	"/ notAnAppModel := (anApplication isKindOf:ApplicationModel) not
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1691	"/ ].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1692	"/ notAnAppModel ifTrue:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1693	"/ builder buildFromSpec:subSpec in:self.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1694	"/ ] ifFalse:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1695	"/ savedView := builder window.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1696	"/ builder window:self.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1697	"/ [
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1698	"/ anApplication buildSubCanvas:subSpec withBuilder:builder.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1699	"/ ] ensure:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1700	"/ savedView notNil ifTrue:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1701	"/ builder window:savedView.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1702	"/ ]
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1703	"/ ].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1704	"/ ].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1705	!
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1706
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1707	helpKey
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1708	^ helpKey
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1709	!
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1710
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1711	helpKey:something
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1712	helpKey := something.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1713	!
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1714
2450 06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1715	keyboardProcessor
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1716	"return my keyboard processor"
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1717
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1718	^ nil
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1719
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1720	"Created: / 13.2.1999 / 10:31:39 / cg"
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1721	! !
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1722
2549 9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1723	!SimpleView methodsFor:'accessing-behavior'!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1724
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1725	disable
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1726	"alternative method; redirected to basic mechanism"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1727
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1728	self enabled:false
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1729
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1730	"Modified: / 30.3.1999 / 14:47:30 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1731	"Created: / 30.3.1999 / 15:54:11 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1732	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1733
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1734	enable
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1735	"alternative method; redirected to basic mechanism"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1736
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1737	self enabled:true
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1738
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1739	"Modified: / 30.3.1999 / 14:47:22 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1740	"Created: / 30.3.1999 / 15:54:16 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1741	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1742
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1743	enabled
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1744	"views are enabled by default"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1745
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1746	^ true
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1747
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1748	"Modified: / 30.3.1999 / 16:27:57 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1749	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1750
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1751	enabled:bool
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1752	"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	1753	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	1754
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1755	"Modified: / 30.3.1999 / 14:46:24 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1756	"Created: / 30.3.1999 / 15:54:21 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1757	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1758
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1759	isEnabled:aState
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1760	"ST-80 compatibility; set enabled state
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1761	"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1762	self enabled:aState
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1763
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1764	"Created: / 30.3.1999 / 15:54:29 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1765	! !
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1766
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1767	!SimpleView methodsFor:'accessing-bg & border'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1768
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1769	allSubViewsBackground:something
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1770	"set the viewBackground to something, a color, image or form,
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1771	recursively in all of my subviews"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1772
4958 bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1773	self allSubViewsBackground:something if:[:v \|true]
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1774	!
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1775
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1776	allSubViewsBackground:something if:condition
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1777	"set the viewBackground to something, a color, image or form,
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1778	recursively in all of my subviews"
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1779
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1780	subViews notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1781	subViews do:[:v\|
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1782	v allViewBackground:something if:condition
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1783	]
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1784	]
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1785
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1786	"Modified: / 18.7.1996 / 13:34:26 / cg"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1787	"Created: / 31.10.2000 / 13:06:02 / bg"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1788	!
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1789
4897 12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1790	allSubViewsForeground:something
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1791	"set the foreground to something, a color, image or form,
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1792	recursively in all of my subviews"
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1793
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1794	subViews notNil ifTrue:[
4907 9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	1795	subViews do:[:v\|
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	1796	v allViewForeground:something
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	1797	]
4897 12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1798	]
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1799	!
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1800
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1801	allViewBackground:something
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1802	"set the viewBackground to something, a color, image or form,
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1803	in myself and recursively in all of my subviews"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1804
4958 bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1805	self allViewBackground:something if:[:v \|true]
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1806	!
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1807
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1808	allViewBackground:something if:condition
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1809	"set the viewBackground to something, a color, image or form,
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1810	in myself and recursively in all of my subviews"
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1811
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1812	(condition value:self) ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1813	viewBackground ~~ something ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1814	self viewBackground:something.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1815	self invalidate
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	1816	].
4958 bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1817	].
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1818	self allSubViewsBackground:something if:condition
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1819	!
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1820
4897 12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1821	allViewForeground:something
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1822	"set the foreground to something, a color, image or form,
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1823	in myself and recursively in all of my subviews"
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1824
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1825	self foregroundColor:something.
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1826	self allSubViewsForeground:something
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1827
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1828	"Modified: / 31.10.2000 / 13:06:17 / bg"
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1829	!
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1830
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1831	backgroundColor
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1832	"return the background color of the contents -
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1833	here, (since there is no contents), the viewBackground is returned."
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1834
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1835	^ self viewBackground
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1836
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1837	"Modified: / 3.5.1997 / 10:28:04 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1838	"Created: / 18.6.1998 / 15:59:36 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1839	!
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1840
1726 51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1841	backgroundColor:aColor
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1842	"set the background color of the contents -
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1843	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	1844
4192 6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1845	self viewBackground:aColor.
6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1846	shown ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1847	self clear; invalidate.
4192 6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1848	].
1726 51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1849
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1850	"Created: 3.5.1997 / 10:26:49 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1851	"Modified: 3.5.1997 / 10:28:04 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1852	!
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1853
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1854	border
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1855	"return my border"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1856
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1857	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1858	^ superView border
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1859	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1860
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1861	^ border
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1862	!
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1863
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1864	border:aBorder
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1865	"set my border"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1866
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1867	border := aBorder.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1868	self computeMargin.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1869	!
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1870
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1871	borderColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1872	"return my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1873
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1874	\|clr\|
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1875
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1876	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1877	^ superView borderColor
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1878	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1879
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1880	"/ ^ borderColor
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1881	border notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1882	clr := border color
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1883	].
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1884	clr isNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1885	^ Color black
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1886	].
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1887	^ clr.
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1888
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1889	"Modified: 5.6.1996 / 14:11:44 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1890	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1891
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1892	borderColor:aColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1893	"set my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1894
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1895	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1896	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1897	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1898	superView borderColor:aColor.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1899	^ self
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1900	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1901
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1902	aColor isNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1903	border isNil ifTrue:[^ self].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1904	self border:nil.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1905	] ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1906	aColor = (self borderColor) ifTrue:[^ self].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1907	self border:(SimpleBorder new width:(self borderWidth) color:aColor)
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1908	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1909	self invalidate.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1910
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1911	"/ (aColor ~~ borderColor) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1912	"/ borderColor := aColor.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1913	"/ drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1914	"/ self setBorderColor
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1915	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1916	"/ ]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1917
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1918	"Modified: 5.6.1996 / 14:11:50 / cg"
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1919	"Modified: 23.10.2009 / 14:11:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1920	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1921
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1922	borderShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1923	"set the borderShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1924
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	1925	aForm isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1926	viewShape := nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1927	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1928	device setWindowBorderShape:nil in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1929	]
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1930	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1931	viewShape isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1932	viewShape := ArbitraryViewShape new
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1933	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1934	viewShape borderShapeForm:aForm.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1935	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1936	device setWindowBorderShape:(aForm id) in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	1937	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1938	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1939
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	1940	"Modified: 18.9.1997 / 11:09:40 / cg"
269 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
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1943	borderWidth
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1944	"return my borderWidth"
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1945
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1946	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1947	^ superView borderWidth
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1948	].
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1949
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1950	border isNil ifTrue:[^ 0].
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1951	^ border width ? 0
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1952
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1953	"Modified: 5.6.1996 / 14:11:57 / cg"
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1954	"Modified: 23.10.2009 / 14:11:50 / cg"
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1955	!
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	1956
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1957	borderWidth:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1958	"set my borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1959
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1960	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1961	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1962	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1963	^ superView borderWidth:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1964	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1965
5422 b43b5950922d changed: Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	1966	(aNumber == 0 or:[aNumber isNil]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1967	border isNil ifTrue:[^ self].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1968	self border:nil.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1969	] ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1970	border notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1971	self border:(border copy width:aNumber)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1972	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1973	self border:(SimpleBorder new width:aNumber color:(self borderColor)).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1974	]
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1975	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1976
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1977	"/ (aNumber ~~ borderWidth) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1978	"/ borderWidth := aNumber.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1979	"/ drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1980	"/ self setBorderWidth.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1981	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1982	"/ ]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1983
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	1984	"Modified: 5.6.1996 / 14:12:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1985	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1986
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1987	computeMargin
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1988	border isNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1989	margin := level abs.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	1990	^ self.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1991	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1992	margin := border width.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1993	!
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1994
4150 9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1995	fillFormWithBorderShape:aForm
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1996	"fill aForm with my borderShape"
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1997
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1998	aForm fillRectangle:(Rectangle origin:self origin corner:self corner).
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	1999	!
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	2000
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2001	foregroundColor
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2002	"return the foreground color of the contents -
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2003	here, (since there is no contents), some default is returned."
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2004
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2005	^ Color black
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2006
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2007	"Modified: / 3.5.1997 / 10:28:04 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2008	"Created: / 18.6.1998 / 16:57:33 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2009	!
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2010
3392 70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2011	foregroundColor:aColor
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2012	"set the foreground color of the contents -
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2013	ignored here, since there is no contents."
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2014	!
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2015
4966 3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2016	foregroundColor:fgColor backgroundColor:bgColor
3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2017	"set both the foreground and background colors of the contents"
3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2018
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2019	self
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2020	foregroundColor:fgColor;
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2021	backgroundColor:bgColor
4966 3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2022	!
3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2023
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2024	level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2025	"return my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2026
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2027	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2028	^ superView level
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2029	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2030	border notNil ifTrue:[^ border level].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2031	^ level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2032
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2033	"Modified: 5.6.1996 / 14:12:10 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2034	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2035
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2036	level:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2037	"set my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2038
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2039	\|oldMargin how\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2040
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2041	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2042	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2043	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2044	^ superView level:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2045	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2046
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2047	(aNumber ~~ level and:[aNumber notNil]) ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2048	self is3D ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2049	level := aNumber.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2050	oldMargin := margin.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2051	margin := level abs.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2052
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2053	realized ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2054	margin ~~ oldMargin ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2055	(margin > oldMargin) ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2056	how := #smaller
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2057	] ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2058	how := #larger
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2059	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2060	self sizeChanged:how.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2061	self setInnerClip.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2062	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2063	shown ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2064	margin ~~ oldMargin ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2065	self clearView.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2066	self redrawX:margin y:margin
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2067	width:width-(margin*2)
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2068	height:height-(margin*2)
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2069	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2070	self redrawEdges.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2071	]
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2072	]
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2073	]
135 cf8e46015072 . claus parents: diff changeset	2074	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2075
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2076	"Modified: 5.6.1996 / 14:12:17 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2077	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2078
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2079	lightColor
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2080	"returb the color to be used for lighted edges (3D only)"
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2081
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2082	^ lightColor
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2083	!
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2084
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2085	lightColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2086	"set the color to be used for lighted edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2087
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2088	lightColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2089	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2090
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2091	margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	2092	"return my inner margin - this is usually the level,
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2093	but can be more for some views
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	2094	(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	2095
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2096	^ margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	2097
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	2098	"Modified: 5.6.1996 / 14:37:54 / cg"
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
5405 369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2101	setBorderWidth
369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2102	"set my borderWidth in the devices physical view"
369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2103
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2104	"/ \|bw\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2105	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2106	"/ bw := borderWidth.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2107	"/ (device supportsWindowBorder:bw) ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2108	"/ bw > 1 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2109	"/ (device supportsWindowBorder:(bw := 1)) ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2110	"/ ^ self
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2111	"/ ].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2112	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2113	"/ ].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2114	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2115	"/ drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2116	"/ device setWindowBorderWidth:bw in:drawableId
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2117	"/ ]
5405 369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2118	!
369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2119
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2120	setBorderWidth:aNumber
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2121	"set my borderWidth without affecting the real view (private only)"
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2122
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2123	"/ borderWidth := aNumber
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2124	self borderWidth:aNumber
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2125	!
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2126
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2127	shadowColor
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2128	"returb the color to be used for shadowed edges (3D only)"
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2129
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2130	^ shadowColor
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2131	!
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2132
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2133	shadowColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2134	"set the color to be used for shadowed edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2135
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2136	shadowColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2137	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2138
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2139	viewBackground:something
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2140	"set the viewBackground to something, a color, image or form.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2141	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	2142	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	2143	edges."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2144
2584 55a405cec086 when lighting/darkening colors, take the average in the topLeft Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	2145	\|avgColor\|
55a405cec086 when lighting/darkening colors, take the average in the topLeft Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	2146
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	2147	"/ debug check only:
4891 af5300103883 nil view-background Claus Gittinger <cg@exept.de> parents: 4855 diff changeset	2148	self assert:(something notNil) message:'invalid viewBackground argument'.
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	2149
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2150	something isColor ifTrue:[
4907 9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	2151	device hasGrayscales ifTrue:[
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	2152	avgColor := something averageColorIn:(0@0 corner:7@7).
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	2153	shadowColor := avgColor darkened "on:device".
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	2154	lightColor := avgColor lightened "on:device".
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	2155	]
135 cf8e46015072 . claus parents: diff changeset	2156	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2157	super viewBackground:something
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	2158
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	2159	"Modified: 4.7.1997 / 20:09:22 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2160	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2161
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2162	viewShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2163	"set the viewShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2164
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	2165	aForm isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2166	viewShape := nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2167	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2168	device setWindowShape:nil in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2169	]
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2170	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2171	viewShape isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2172	viewShape := ArbitraryViewShape new
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2173	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2174
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2175	viewShape viewShapeForm:aForm.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2176	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2177	device setWindowShape:(aForm id) in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2178	]
135 cf8e46015072 . claus parents: diff changeset	2179	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	2180
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	2181	"Modified: 18.9.1997 / 11:11:04 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2182	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2183
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2184	!SimpleView methodsFor:'accessing-channels'!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2185
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2186	setupChannel:newChannel for:changeSelector withOld:oldChannel
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2187	"common code to change a channel.
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2188	If changeSelector is non-nil, arrange for it to be sent when
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2189	the channel changes its value; otherwise, arrange for a simple update.
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2190	This is so common, that ist worth a helper method:
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2191	release any old channel (if non-nil),
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2192	arrange for changeSelector (or #update) to be sent for the new channel."
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2193
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2194	\|oldValue\|
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2195
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2196	oldChannel == newChannel ifTrue:[^ self].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2197
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2198	oldChannel notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2199	changeSelector isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2200	oldChannel removeDependent:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2201	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2202	oldChannel retractInterestsFor:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2203	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2204	oldValue := oldChannel value.
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2205	].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2206	newChannel notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2207	changeSelector isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2208	newChannel addDependent:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2209	newChannel value ~~ oldValue ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2210	self update:#value with:nil from:newChannel.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2211	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2212	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2213	newChannel onChangeSend:changeSelector to:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2214	newChannel value ~~ oldValue ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2215	self perform:changeSelector.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2216	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2217	]
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2218	].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2219
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2220	^ newChannel
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2221
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2222	"Modified: / 31.10.1997 / 14:47:21 / cg"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2223	! !
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2224
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2225	!SimpleView methodsFor:'accessing-contents'!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2226
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2227	heightOfContents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2228	"return the height of the contents in logical units
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2229	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2230	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	2231	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	2232	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	2233	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	2234	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	2235	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	2236	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	2237	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	2238	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	2239	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2240
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2241	^ (self innerHeight max:(self maxSubViewBottom)) max:self maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2242
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2243	"Modified: 26.5.1996 / 12:44:21 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2244	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2245
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2246	widthOfContents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2247	"return the width of the contents in logical units
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2248	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2249	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	2250	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	2251	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	2252	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	2253	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	2254	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	2255	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	2256	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	2257	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	2258	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2259
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2260	^ (self innerWidth max:(self maxSubViewRight)) max:self maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2261
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2262	"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	2263	! !
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2264
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2265	!SimpleView methodsFor:'accessing-dimensions'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2266
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2267	allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2268	"set all insets; positive makes the view smaller,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2269	negative makes it larger..
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2270	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2271
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2272	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2273	insets := Array new:4.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2274	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2275	insets atAllPut:aNumber.
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	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2278	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2279	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2280	"/ ] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2281	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2282	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2283
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2284	"Modified: 19.7.1996 / 17:30:18 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2285	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2286
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2287	bottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2288	"return the y position of the actual bottom edge (in pixels)"
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	^ top + height - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2291	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2292
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2293	bottom:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2294	"set the corners y position"
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	self corner:(self corner x @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2297	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2298
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2299	bottomInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2300	"return the inset of the bottom edge; positive is to the top,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2301	negative to the bottom.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2302	Obsolete: please use a layout object."
269 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	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2305	^ insets at:4
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2306	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2307
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2308	bottomInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2309	"set the inset of the bottom edge;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2310	positive is to the top (view becomes smaller),
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2311	negative to the bottom (becomes larger).
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2312	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2313
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2314	\|newInset\|
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2315
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2316	insets isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2317	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	2318	].
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2319	newInset := aNumber.
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2320	newInset isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2321	newInset := 0.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2322	].
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2323	(insets at:4) ~= newInset ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2324	insets at:4 put:newInset.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2325	self containerChangedSize
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2326	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2327
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2328	"Modified: 19.7.1996 / 17:30:22 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2329	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2330
5547 07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2331	bounds
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2332	"ST-80 compatibility: return my bounds"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2333
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2334	^ (self origin) corner:(self corner)
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2335
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2336	"Created: 4.6.1996 / 21:23:27 / cg"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2337	"Modified: 10.1.1997 / 19:46:21 / cg"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2338	!
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2339
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2340	bounds:aRectangle
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2341	"ST-80 compatibility: change my bounds"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2342
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2343	self explicitExtent:true.
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2344	self pixelOrigin:aRectangle origin
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2345	corner:aRectangle corner
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2346
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2347	"Created: 4.6.1996 / 21:44:27 / cg"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2348	"Modified: 10.1.1997 / 19:46:36 / cg"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2349	!
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2350
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2351	center
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2352	"return the point at the center of the receiver (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2353
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2354	^ (left + (width // 2)) @ (top + (height // 2))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2355	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2356
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2357	center:newCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2358	"move the receiver so that newCenter, aPoint becomes the center point"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2359
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2360	self origin:(newCenter - ((width // 2) @ (height // 2)))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2361	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2362
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2363	computeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2364	"compute my corner; if I have a layoutObject,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2365	relative origins or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2366	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	2367	Returns the corner point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2368
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2369	\|org newCorner newExt x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2370
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2371	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2372	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2373	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2374	layout notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2375	superView isNil ifTrue:[^ self preferredBounds corner].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2376	^ (layout rectangleRelativeTo:(superView viewRectangle)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2377	preferred:[self preferredBounds]) corner rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2378	].
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	(cornerRule notNil) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2381	newCorner := cornerRule value.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2382	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2383	allow return of relative values ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2384	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2385	x := newCorner x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2386	y := newCorner y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2387	x isNil ifTrue:[x := self corner x].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2388	y isNil ifTrue:[y := self corner y].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2389	((x isInteger not) or:[y isInteger not]) ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2390	newCorner := self cornerFromRelativeCorner:x@y
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2391	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2392	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2393	(relativeCorner notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2394	newCorner := self cornerFromRelativeCorner:relativeCorner
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2395	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2396	org := self computeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2397	(extentRule notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2398	newExt := extentRule value
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2399	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2400	(relativeExtent notNil) ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2401	newExt := self extentFromRelativeExtent:relativeExtent
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2402	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2403	newExt := self extent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2404	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2405	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2406	newCorner := org + newExt
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2407	]
269 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	^ newCorner
1389 8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2410
8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2411	"Modified: 28.2.1997 / 10:33:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2412	!
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	computeExtent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2415	"compute my extent; if I have a layoutObject, a relative extent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2416	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2417	There is one catch here, if the dimension was defined
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2418	by origin/corner, compute them here and take that value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2419	I.e. origin/corner definition has precedence over extent definition.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2420	Returns the extent in device coordinates (pixels)."
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	\|newOrg newExt newCorner x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2423
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2424	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2425	slowly migrating to use layoutObjects ...
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	layout notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2428	^ (layout rectangleRelativeTo:(superView viewRectangle)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2429	preferred:[self preferredBounds]) extent rounded
135 cf8e46015072 . claus parents: diff changeset	2430	].
269 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	(cornerRule notNil) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2433	newCorner := cornerRule value.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2434	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2435	allow return of relative values ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2436	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2437	x := newCorner x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2438	y := newCorner y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2439	x isNil ifTrue:[x := self corner x].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2440	y isNil ifTrue:[y := self corner y].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2441	((x isInteger not) or:[y isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2442	newCorner := self cornerFromRelativeCorner:x@y
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2443	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2444	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2445	(relativeCorner notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2446	newCorner := self cornerFromRelativeCorner:relativeCorner
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2447	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2448	(extentRule notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2449	newExt := extentRule value.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2450	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2451	allow return of relative values ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2452	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2453	x := newExt x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2454	y := newExt y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2455	x isNil ifTrue:[x := width].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2456	y isNil ifTrue:[y := height].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2457	((x isInteger not) or:[y isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2458	newExt := self extentFromRelativeExtent:x@y
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2459	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2460	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2461	(relativeExtent notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2462	newExt := self extentFromRelativeExtent:relativeExtent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2463	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2464	newExt := (width @ height).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2465	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2466	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2467	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2468	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2469
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2470	newCorner notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2471	newOrg := self computeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2472	^ newCorner - newOrg.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2473	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2474	^ newExt.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2475	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2476
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2477	computeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2478	"compute my origin; if I have a layoutObject, a relative origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2479	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2480	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	2481	Returns the origin point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2482
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2483	\|newOrg x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2484
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2485	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2486	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2487	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2488	layout notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2489	superView isNil ifTrue:[^ 0@0].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2490	^ (layout rectangleRelativeTo:(superView viewRectangle)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2491	preferred:[self preferredBounds]) origin rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2492	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2493
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2494	(originRule notNil) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2495	newOrg := originRule value.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2496	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2497	allow return of relative values ...
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2498	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2499	x := newOrg x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2500	y := newOrg y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2501	x isNil ifTrue:[x := self origin x].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2502	y isNil ifTrue:[y := self origin y].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2503	((x isInteger not) or:[y isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2504	newOrg := self originFromRelativeOrigin:x@y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2505	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2506	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2507	(relativeOrigin notNil) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2508	newOrg := self originFromRelativeOrigin:relativeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2509	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2510	^ (left @ top).
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	2511	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2512	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2513	^ newOrg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2514	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2515
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2516	corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2517	"return the lower right corner-point (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2518
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2519	"/ ^ (left + width "- 1") @ (top + height "- 1")
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2520	^ (left + width - 1) @ (top + height - 1)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2521
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2522	"Modified: 31.8.1995 / 16:51:40 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2523	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2524
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2525	corner:corner
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2526	"set the views corner;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2527	the corner argument may be:
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2528	a point
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2529	where integer fields mean 'pixel-values'
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2530	and float values mean 'relative-to-superview'
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2531	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2532	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2533	Please migrate to use layoutObjects, if possible."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2534
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2535	\|x y pixelCorner c\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2536
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2537	self explicitExtent:true.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2538
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2539	corner isBlock ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2540	cornerRule := corner.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2541	drawableId notNil ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2542	pixelCorner := corner value
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2543	] ifFalse:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2544	self extentChangedFlag:true
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2545	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2546	] ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2547	x := corner x.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2548	y := corner y.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2549	x isNil ifTrue:[x := self corner x].
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2550	y isNil ifTrue:[y := self corner y].
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2551	c := x @ y.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2552	((x isInteger not) or:[y isInteger not]) ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2553	relativeCorner := c.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2554	pixelCorner := self cornerFromRelativeCorner.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2555	pixelCorner isNil ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2556	self extentChangedFlag:true
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2557	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2558	] ifFalse:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2559	pixelCorner := c
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2560	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2561	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2562
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2563	pixelCorner notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2564	self pixelCorner:pixelCorner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2565	]
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2566
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2567	"Modified: 15.7.1996 / 09:51:06 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2568	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2569
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2570	cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2571	"return the corner block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2572
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2573	^ cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2574	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2575
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2576	extent:extent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2577	"set the views extent;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2578	extent may be:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2579	a point
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2580	where integer fields mean 'pixel-values'
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2581	and float values mean 'relative-to-superview'
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2582	and nil means 'leave current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2583	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2584	Be careful when using relative extents: rounding errors may
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2585	accumulate. Better use origin/corner.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2586	Best: migrate to use layour objects.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2587
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2588	Notice: this sets the views explicitExtent flag, which prevents it normally
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2589	from resizing itself to its preferredExtent.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2590	See initialExtent: for a variation."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2591
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2592	\|w h pixelExtent e\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2593
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2594	self explicitExtent:true.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2595
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2596	extent isBlock ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2597	extentRule := extent.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2598	drawableId notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2599	pixelExtent := extent value
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2600	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2601	self extentChangedFlag:true
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2602	]
135 cf8e46015072 . claus parents: diff changeset	2603	] ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2604	w := extent x.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2605	h := extent y.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2606	w isNil ifTrue:[w := width].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2607	h isNil ifTrue:[h := height].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2608	e := w@h.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2609	((w isInteger not) or:[h isInteger not]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2610	"/ w > 1 ifTrue:[self halt].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2611	relativeExtent := e.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2612	pixelExtent := self extentFromRelativeExtent.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2613	pixelExtent isNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2614	self extentChangedFlag:true
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2615	]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2616	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2617	relativeExtent := nil.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2618	pixelExtent := e
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2619	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2620	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2621	pixelExtent notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2622	self pixelExtent:pixelExtent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2623	]
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2624
5571 3f610d50c464 comment Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	2625	"Modified: / 07-07-2010 / 16:44:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2626	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2627
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2628	extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2629	"return the extent block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2630
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2631	^ extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2632	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2633
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2634	frame
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2635	"compatibility with displayObjects: returns my bounds"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2636
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2637	^ self bounds
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2638	!
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2639
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2640	geometryLayout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2641	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2642	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2643	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2644	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	2645	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2646
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2647	^ here layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2648	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2649
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2650	geometryLayout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2651	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2652	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2653	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2654	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	2655	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2656
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2657	here layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2658	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2659
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2660	hasExplicitExtent
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2661	"/ ^ explicitExtent.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2662	^ flagBits bitTest:FlagHasExplicitExtent.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2663	!
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2664
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2665	height:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2666	"set the views height in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2667
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	2668	aNumber isInteger ifTrue:[
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	2669	height := aNumber.
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	2670	] ifFalse:[
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	2671	self extent:(width @ aNumber)
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	2672	].
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	2673
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	2674	"Modified: / 01-02-2011 / 23:35:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2675	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2676
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2677	heightIncludingBorder
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2678	"return my height including border
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2679	(this is my height as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2680	while #height returns the height as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2681
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2682	^ height + (2*self borderWidth)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2683	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2684
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2685	horizontalInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2686	"set the insets of the left/right edge;
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2687	positive makes it smaller, negative makes it larger.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2688	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2689
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2690	\|newInset\|
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2691
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2692	insets isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2693	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	2694	].
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2695	newInset := aNumber.
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	2696	aNumber isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2697	newInset := 0.
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2698	].
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2699	insets at:1 put:newInset.
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2700	insets at:3 put:newInset.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2701
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2702	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2703	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2704	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2705	"/ ] ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2706	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2707	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2708
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2709	"Modified: / 30-09-2006 / 15:19:28 / 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
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2712	initialExtent:extent
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2713	"set the views extent, but dont change its explicitExtent setting.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2714	a variant of #extent."
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2715
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2716	\|expl\|
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2717
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2718	expl := self hasExplicitExtent.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2719	self extent:extent.
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2720	self explicitExtent:expl
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2721	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2722
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2723	initialHeight:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2724	"set the views height in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2725
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2726	self initialExtent:(width @ aNumber)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2727	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2728
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2729	initialWidth:aNumber
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2730	"set the views width in pixels, but dont change its explicitExtent setting"
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2731
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2732	self initialExtent:(aNumber @ height)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2733	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2734
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2735	innerHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2736	"return the height of the view minus any 3D-shadow-borders"
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	(margin == 0) ifTrue:[^ height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2739	^ height - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2740	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2741
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2742	innerHeight:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2743	"set the height of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2744	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2745
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2746	^ self height:( pixels + (margin + self innerVerticalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2747	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2748
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2749	innerHorizontalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2750	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2751	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2752	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2753
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2754	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2755	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2756
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2757	innerVerticalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2758	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2759	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2760	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2761
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2762	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2763	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2764
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2765	innerWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2766	"return the width of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2767
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2768	(level == 0) ifTrue:[^ width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2769	^ width - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2770	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2771
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2772	innerWidth:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2773	"set the width of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2774	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2775
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2776	^ self width:( pixels + (margin + self innerHorizontalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2777	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2778
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2779	inset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2780	"set all insets; positive makes the view smaller,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2781	negative makes it larger..
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2782	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2783
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2784	self allInset:aNumber
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2787	layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2788	"return the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2789	Currently, this is nil in most cases, and my geometry is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2790	defined by relativeOrigin/relativeCorner/relativeExtent,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2791	originRule/extentRule/cornerRule and inset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2792	Applications should be changed to use layoutObjects,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2793	since the above listed instance variables will vanish."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2794
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2795	^ layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2796	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2797
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2798	layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2799	"set the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2800	Currently, this is almost nowhere used but views will be
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2801	incrementally changed to use this new geometry management."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2802
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2803	layout := aLayoutObject.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2804	superView isNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2805	self originChangedFlag:true extentChangedFlag:true cornerChangedFlag:true.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2806	] ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2807	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2808	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2809
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2810	"Modified: 19.9.1995 / 16:17:25 / claus"
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2811	"Modified: 19.7.1996 / 17:30:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2812	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2813
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2814	left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2815	"return the x position of the left border (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2816
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2817	^ left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2818	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2819
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2820	left:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2821	"set the x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2822
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2823	self origin:(aNumber @ top)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2824	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2825
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2826	left:newLeft top:newTop width:newWidth height:newHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2827	"another way of specifying origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2828
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2829	self origin:(newLeft @ newTop) extent:(newWidth @ newHeight)
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2832	leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2833	"return the inset of the left edge; positive is to the right,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2834	negative to the left.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2835	Obsolete: please use a layout object."
269 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	insets isNil ifTrue:[^ 0].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2838	^ insets at:1
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2839	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2840
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2841	leftInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2842	"set the inset of the left edge;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2843	positive is to the right (view becomes smaller),
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2844	negative to the left (becomes larger).
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2845	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2846
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2847	\|newInset\|
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2848
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2849	insets isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2850	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	2851	].
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2852	newInset := aNumber.
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2853	newInset isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2854	newInset := 0.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2855	].
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2856	(insets at:1) ~= newInset ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2857	insets at:1 put:newInset.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2858	self containerChangedSize.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2859	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2860
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2861	"Modified: 19.7.1996 / 17:30:30 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2862	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2863
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2864	makeFullyVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2865	"make sure, that the view is fully visible by shifting it
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2866	into the visible screen area if nescessary.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2867	This method will be moved to StandardSystemView ..."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2868
5639 1fd25938a833 changed: #makeFullyVisible Stefan Vogel <sv@exept.de> parents: 5635 diff changeset	2869	\|originVisible cornerVisible newTop newLeft deviceBounds
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2870	deviceLeft deviceRight deviceTop deviceBottom origin corner\|
5617 135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	2871
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2872	newTop := top.
5617 135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	2873	newLeft := left.
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2874
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2875	origin := left@top.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2876	corner := (left + width)@(top + height).
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2877
5639 1fd25938a833 changed: #makeFullyVisible Stefan Vogel <sv@exept.de> parents: 5635 diff changeset	2878	originVisible := device pointIsVisible:origin.
1fd25938a833 changed: #makeFullyVisible Stefan Vogel <sv@exept.de> parents: 5635 diff changeset	2879	cornerVisible := device pointIsVisible:corner.
1fd25938a833 changed: #makeFullyVisible Stefan Vogel <sv@exept.de> parents: 5635 diff changeset	2880
1fd25938a833 changed: #makeFullyVisible Stefan Vogel <sv@exept.de> parents: 5635 diff changeset	2881	(device pointsAreOnSameMonitor:origin and:corner) ifTrue:[
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2882	deviceBounds := device monitorBoundsAt:origin.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2883	] ifFalse:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2884	originVisible ifTrue:[
5639 1fd25938a833 changed: #makeFullyVisible Stefan Vogel <sv@exept.de> parents: 5635 diff changeset	2885	"origin is visible"
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2886	deviceBounds := device monitorBoundsAt:origin.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2887	] ifFalse:[
5639 1fd25938a833 changed: #makeFullyVisible Stefan Vogel <sv@exept.de> parents: 5635 diff changeset	2888	cornerVisible notNil ifTrue:[
1fd25938a833 changed: #makeFullyVisible Stefan Vogel <sv@exept.de> parents: 5635 diff changeset	2889	"corner is visible"
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2890	deviceBounds := device monitorBoundsAt:corner.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2891	] ifFalse:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2892	deviceBounds := device monitorBoundsAt:1@1.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2893	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2894	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2895	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2896
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2897	deviceLeft := deviceBounds left.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2898	deviceRight := deviceBounds right.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2899	deviceTop := deviceBounds top.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2900	deviceBottom := deviceBounds bottom.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2901
5629 2feed690352a changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5628 diff changeset	2902	originVisible ifTrue:[ deviceBottom := deviceBottom min:(device usableHeightAt:origin) ].
2feed690352a changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5628 diff changeset	2903	cornerVisible ifTrue:[ deviceBottom := deviceBottom min:(device usableHeightAt:corner) ].
5627 c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	2904
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	2905	corner y > deviceBottom ifTrue:[
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	2906	cornerVisible := false.
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	2907	].
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	2908
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	2909	UserPreferences current forceWindowsIntoMonitorBounds ifFalse:[
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	2910	(originVisible and:[cornerVisible]) ifTrue:[^ self].
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	2911	].
5617 135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	2912
135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	2913	"/ deviceRight := deviceRight min:device usableWidth.
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2914	originVisible ifFalse:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2915	cornerVisible ifFalse:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2916	newTop := deviceBottom - height.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2917	newLeft := deviceRight - width.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2918	newLeft := newLeft max:deviceLeft.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2919	newTop := newTop max:deviceTop.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2920	] ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2921	"/ origin is not; corner is in
5628 08eb37f30556 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	2922	newLeft := (deviceLeft max:newLeft).
08eb37f30556 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5627 diff changeset	2923	newTop := (deviceTop max:newTop).
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2924	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2925	] ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2926	"/ notice, the position-dependent query: if there is a higher secondary screen,
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2927	"/ this makes a difference in where a popUpMenu is allowed...
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2928	(corner y > deviceBottom) ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2929	newTop := deviceBottom - height
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2930	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2931	(corner x > deviceRight) ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2932	newLeft := deviceRight - width
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2933	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2934	newLeft := newLeft max:deviceLeft.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2935	newTop := newTop max:deviceTop.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2936	].
5617 135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	2937
135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	2938	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	2939	self origin:newLeft @ newTop
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2940	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	2941
5629 2feed690352a changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5628 diff changeset	2942	"Modified: / 22-10-2010 / 15:38:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2943	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2944
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2945	makeRoundViewShapeWithBorder:bw
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2946	"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	2947	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	2948
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2949	self makeRoundViewShapeWithBorder:bw opaque:true.
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2950
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2951	!
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2952
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2953	makeRoundViewShapeWithBorder:bw opaque:opaque
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2954	"setup my window for a round shaped view;
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2955	this is not supported by all devices"
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2956
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2957	\|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	2958
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2959	device supportsRoundShapedViews ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2960	"/ 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	2961	].
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2962
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	2963	device supportsArbitraryShapedViews ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2964	extent := self extent.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2965	w := extent x.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2966	h := extent y.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2967	borderForm := Form extent:extent.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2968	shapeForm := Form extent:extent.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2969
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2970	borderForm fillArcX:0 y:0
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2971	width:w
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2972	height:h
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2973	from:0
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2974	angle:360.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2975
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2976	opaque ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2977	f := borderForm.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2978	borderForm foreground:(Color colorId:0).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2979	] ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2980	f := shapeForm.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2981	shapeForm foreground:(Color colorId:1).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2982	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2983
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2984	f fillArcX:lineWidth y:lineWidth
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2985	width:w - (bw * 2)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2986	height:h - (bw * 2)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2987	from:0
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2988	angle:360.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2989
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2990	self borderShape:borderForm.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2991	self viewShape:shapeForm.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	2992	^ self.
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2993
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2994	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2995	"/ extent := self extent.
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	2996	"/
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2997	"/ w := extent x.
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2998	"/ h := extent y.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	2999	"/ borderForm := Form width:w height:h.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3000	"/ "/ borderForm fill:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3001	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3002	"/ shapeForm := Form width:w height:h.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3003	"/ "/ shapeForm fill:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3004	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3005	"/ borderForm foreground:(Color colorId:1).
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3006	"/ borderForm
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3007	"/ fillArcX:0 y:0
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3008	"/ width:w
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3009	"/ height:h
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3010	"/ from:0
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3011	"/ angle:360.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3012	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3013	"/ opaque ifFalse:[
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3014	"/ f := borderForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3015	"/ borderForm foreground:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3016	"/ ] ifTrue:[
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3017	"/ f := shapeForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3018	"/ shapeForm foreground:(Color colorId:1).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3019	"/ ].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3020	"/ f
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3021	"/ fillArcX:bw y:bw
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3022	"/ width:(w - (bw * 2))
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3023	"/ height:(h - (bw * 2))
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3024	"/ from:0
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3025	"/ angle:360.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3026	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3027	"/ self borderShape:borderForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3028	"/ self viewShape:shapeForm
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3029	]
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3030	!
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3031
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3032	makeTransparentRectangularViewShapeWithBorder:bw
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3033	"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	3034	this is not supported by all devices"
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3035
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3036	\|extent shapeForm borderForm w h f\|
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3037
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3038	"/ device supportsPolygonShapedViews ifTrue:[
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3039	"/ "/ TODO: add code for mswin
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3040	"/ ].
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3041
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3042	device supportsArbitraryShapedViews ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3043	extent := self extent.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3044	w := extent x.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3045	h := extent y.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3046	borderForm := Form extent:extent.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3047	shapeForm := Form extent:extent.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3048
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3049	borderForm
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3050	fillRectangleX:0 y:0
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3051	width:w
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3052	height:h.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3053
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3054	f := borderForm.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3055	borderForm foreground:(Color colorId:0).
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3056
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3057	borderForm
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3058	fillRectangleX:bw y:bw
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3059	width:w - (bw * 2)
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3060	height:h - (bw * 2).
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3061
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3062	self borderShape:borderForm.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3063	self viewShape:shapeForm.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	3064	^ self.
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3065	]
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3066
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3067	!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3068
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	3069	minExtent
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	3070	"for compatibility with StdSysView"
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	3071
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	3072	^ nil
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	3073	!
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	3074
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3075	origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3076	"return the origin (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3077
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3078	^ left@top
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3081	origin:origin
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3082	"set the views origin;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3083	origin may be:
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3084	a point
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3085	where integer fields mean 'pixel-values'
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3086	and float values mean 'relative-to-superview'
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3087	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3088	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3089	Please migrate to use layout objects."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3090
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3091	\|newLeft newTop pixelOrigin o\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3092
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3093	origin isBlock ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3094	originRule := origin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3095	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3096	pixelOrigin := origin value
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3097	] ifFalse:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	3098	self originChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3099	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3100	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3101	o := origin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3102	newLeft := origin x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3103	newTop := origin y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3104	newLeft isNil ifTrue:[newLeft := left].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3105	newTop isNil ifTrue:[newTop := top].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3106	o := newLeft @ newTop.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3107	((newLeft isInteger not) or:[newTop isInteger not]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3108	relativeOrigin := o.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3109	pixelOrigin := self originFromRelativeOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3110	pixelOrigin isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	3111	self originChangedFlag:true
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3112	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3113	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3114	relativeOrigin := nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3115	pixelOrigin := o
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3116	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3117	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3118	pixelOrigin notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3119	self pixelOrigin:pixelOrigin
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3120	].
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	3121
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	3122	"Modified: 19.4.1996 / 15:12:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3123	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3124
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3125	origin:origin corner:corner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3126	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3127
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3128	\|newLeft newTop newRight newBot\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3129
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	3130	self explicitExtent:true.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3131
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3132	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3133
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3134	origin isBlock ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3135	corner isBlock ifFalse:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3136	newLeft := origin x.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3137	newLeft isInteger ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3138	newTop := origin y.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3139	newTop isInteger ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3140	newRight := corner x.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3141	newRight isInteger ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3142	newBot := corner y.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3143	newBot isInteger ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3144	self pixelOrigin:origin corner:corner
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3145	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3146	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3147	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3148	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3149	]
135 cf8e46015072 . claus parents: diff changeset	3150	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3151	self origin:origin.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3152	self corner:corner
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3153
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3154	"Modified: 15.7.1996 / 09:52:43 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3155	!
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	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3158	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3159
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3160	\|newLeft newTop newWidth newHeight\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3161
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	3162	self explicitExtent:true.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3163
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3164	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3165
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3166	origin isBlock ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3167	extent isBlock ifFalse:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3168	newLeft := origin x.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3169	newLeft isInteger ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3170	newTop := origin y.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3171	newTop isInteger ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3172	newWidth := extent x.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3173	newWidth isInteger ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3174	newHeight := extent y.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3175	newHeight isInteger ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3176	self pixelOrigin:origin extent:extent
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3177	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3178	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3179	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3180	]
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3181	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3182	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3183	self extent:extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3184	self origin:origin
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3185
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3186	"Modified: 15.7.1996 / 09:52:39 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3189	originRelativeTo:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3190	"return the origin (in pixels) relative to a superView,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3191	or relative to the rootView (if the aView argument is nil).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3192	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	3193
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3194	\|currentView
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	3195	bw "{ Class: SmallInteger }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3196	sumX "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3197	sumY "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3198
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3199	currentView := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3200	sumX := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3201	sumY := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3202	[currentView notNil] whileTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3203	(currentView == aView) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3204	^ (sumX @ sumY)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3205	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3206	bw := currentView borderWidth.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3207	sumX := sumX + (currentView left) + bw.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3208	sumY := sumY + (currentView top) + bw.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3209	currentView := currentView superView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3210	].
729 d2fdca1c2895 eliminated references to RootView Claus Gittinger <cg@exept.de> parents: 727 diff changeset	3211	(aView isNil or:[aView == device rootView]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3212	"return relative to screen ..."
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3213	^ (sumX @ sumY)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3214	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3215	^ nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3216
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3217	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3218	\|top sub1 sub2\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3219
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3220	top := StandardSystemView new.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3221	top extent:200@200.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3222	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	3223	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	3224	top openAndWait.
697 cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	3225	Transcript show:'button in top:'; showCR:(sub2 originRelativeTo:top).
cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	3226	Transcript show:'button on screen:'; showCR:(sub2 originRelativeTo:nil).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3227	"
2171 df6af7cc7a62 fixed #originRelativeTo: when borderWidth ~~ 0 Claus Gittinger <cg@exept.de> parents: 2167 diff changeset	3228
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	3229	"Modified: / 5.12.1998 / 14:30:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3230	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3231
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	3232	originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3233	"return the origin block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3234
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3235	^ originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3236	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3237
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3238	preferredExtent:anExtentPoint
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3239	"override the views own preferredExtent computation,
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3240	and let it prefer the size given by the argument."
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3241
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3242	preferredExtent := anExtentPoint.
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	3243	explicitExtent := anExtentPoint.
1038 fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	3244
fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	3245	"Modified: 22.8.1996 / 13:41:47 / cg"
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3246	!
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3247
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3248	relativeCorner
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3249	"return the relative corner or nil.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3250	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3251
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3252	^ relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3253	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3254
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3255	relativeCorner:aPoint
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3256	"set the relative corner.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3257	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3258
3627 eefbbc5c3d04 when setting a relativeExtent, clear any relativeCorner Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3259	aPoint notNil ifTrue:[relativeExtent := nil].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3260	relativeCorner := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3261	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3262
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3263	relativeExtent
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3264	"return the relative extent or nil.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3265	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3266
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3267	^ relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3268	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3269
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3270	relativeExtent:aPoint
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3271	"set the relative extent.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3272	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3273
3627 eefbbc5c3d04 when setting a relativeExtent, clear any relativeCorner Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3274	aPoint notNil ifTrue:[relativeCorner := nil].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3275	relativeExtent := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3276	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3277
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3278	relativeOrigin
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3279	"return the relative origin or nil.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3280	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3281
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3282	^ relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3283	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3284
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3285	relativeOrigin:aPoint
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3286	"set the relative origin.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3287	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3288
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3289	relativeOrigin := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3290	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3291
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3292	right
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3293	"return the x position of the right edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3294
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3295	^ left + width - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3296
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3297	"Modified: 31.8.1995 / 19:31:10 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3298	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3299
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3300	right:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3301	"set the corners x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3302
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3303	self corner:(aNumber @ self corner y)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3304	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3305
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3306	rightInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3307	"return the inset of the right edge; positive is to the left,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3308	negative to the right.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3309	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3310
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3311	insets isNil ifTrue:[^ 0].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3312	^ insets at:3
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3313	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3314
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3315	rightInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3316	"set the inset of the right edge;
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3317	positive is to the left (view becomes smaller),
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3318	negative to the right (becomes larger).
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3319	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3320
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3321	\|newInset\|
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3322
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3323	insets isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3324	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3325	].
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3326	newInset := aNumber.
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3327	newInset isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3328	newInset := 0.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3329	].
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3330	(insets at:3) ~= newInset ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3331	insets at:3 put:newInset.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3332	self containerChangedSize.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3333	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3334
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3335	"Modified: 19.7.1996 / 17:30:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3336	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3337
5547 07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3338	screenBounds
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3339	"return my bounds on the screen"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3340
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3341	^ (self originRelativeTo:nil) extent:(self extent)
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3342	!
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3343
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3344	setHeight:aNumber
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3345	"set the views height in pixels"
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3346
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3347	height := aNumber.
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3348
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3349	"Created: / 01-02-2011 / 23:34:51 / cg"
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3350	!
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3351
3007 1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3352	setOrigin:aPoint
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3353	"set the origin only"
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3354
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3355	left := aPoint x.
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3356	top := aPoint y.
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3357	!
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3358
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3359	setWidth:aNumber
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3360	"set the views width in pixels"
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3361
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3362	width := aNumber.
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3363
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3364	"Created: / 01-02-2011 / 23:36:44 / cg"
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3365	!
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3366
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3367	sizeFixed:aBoolean
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3368	"set/clear the fix-size attribute, if supported by concrete subclasses.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3369	Views which want to resize themselfes as appropriate to their contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3370	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	3371	true. Currently, only supported by Labels.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3372	This does NOT prevent the window manager from resizing the view,
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3373	instead it tell the view to NOT resize ITSELF.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3374	Added here to provide a common protocol for all views."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3375
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3376	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3377	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3378
5228 b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3379	superViewRectangle
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3380	"return the inside area of the superView."
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3381
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3382	superView isNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3383	^ Rectangle left:0 top:0 right:0 bottom:0.
5228 b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3384	].
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3385
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3386	^ superView viewRectangle.
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3387	!
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3388
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3389	top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3390	"return the y position of the top border"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3391
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3392	^ top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3393	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3394
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3395	top:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3396	"set the y position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3397
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3398	self origin:(left @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3399	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3400
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3401	topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3402	"return the inset of the top edge; positive is to the bottom,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3403	negative to the top.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3404	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3405
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3406	insets isNil ifTrue:[^ 0].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3407	^ insets at:2
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3408	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3409
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3410	topInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3411	"set the inset of the top edge;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3412	positive is to the bottom (view becomes smaller),
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3413	negative to the top (becomes larger).
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3414	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3415
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3416	\|newInset\|
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3417
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3418	insets isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3419	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3420	].
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3421	newInset := aNumber.
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3422	newInset isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3423	newInset := 0.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3424	].
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3425	(insets at:2) ~= newInset ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3426	insets at:2 put:newInset.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3427	self containerChangedSize.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3428	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3429
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3430	"Modified: 19.7.1996 / 17:30:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3431	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3432
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3433	verticalInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3434	"set the insets of the top/bottom edge;
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3435	positive makes it smaller, negative makes it larger.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3436	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3437
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3438	\|newInset\|
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3439
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3440	insets isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3441	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3442	].
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3443	newInset := aNumber.
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3444	aNumber isNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3445	newInset := 0.
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3446	].
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3447	insets at:2 put:newInset.
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3448	insets at:4 put:newInset.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3449
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3450	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3451	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	3452	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3453	"/ ] ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	3454	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3455	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3456
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3457	"Modified: / 30-09-2006 / 15:19:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3458	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3459
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3460	viewRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3461	"return the inside area.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3462	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	3463	to base relative coordinates on.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3464	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	3465	margins required for 3D levels) is ok.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3466	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	3467	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	3468	(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	3469
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3470	\|m2\|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3471
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3472	m2 := margin + margin.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3473	^ (margin @ margin) extent:((width - m2) @ (height - m2))
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3474
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3475	"Modified: 8.2.1996 / 20:05:00 / cg"
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3476	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3477
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3478	width:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3479	"set the views width in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3480
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3481	aNumber isInteger ifTrue:[
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3482	width := aNumber.
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3483	] ifFalse:[
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3484	self extent:(aNumber @ height)
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3485	]
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3486
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3487	"Modified: / 01-02-2011 / 23:36:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3488	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3489
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3490	widthIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3491	"return my width including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3492	(this is my width as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3493	while #width returns the width as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3494
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	3495	^ width + (2*self borderWidth)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3496	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3497
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3498	!SimpleView methodsFor:'accessing-display attributes'!
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3499
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3500	beMDIChildView
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3501	flagBits := flagBits bitOr:FlagIsMDIChild
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3502	!
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3503
4230 6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3504	beNativeWidget
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3505	flagBits := flagBits bitOr:FlagNativeWidget
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3506	!
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3507
4262 129e10b82f57 * empty log message * ca parents: 4230 diff changeset	3508	beNonNativeWidget
129e10b82f57 * empty log message * ca parents: 4230 diff changeset	3509	flagBits := flagBits bitClear:FlagNativeWidget
129e10b82f57 * empty log message * ca parents: 4230 diff changeset	3510	!
129e10b82f57 * empty log message * ca parents: 4230 diff changeset	3511
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3512	isMDIChildView
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3513	^ flagBits bitTest:FlagIsMDIChild
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3514	!
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3515
4407 d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3516	isMarkedAsUnmappedModalBox
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3517	^ flagBits bitTest:FlagIsUnmappedModalBox
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3518	!
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3519
4230 6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3520	isNativeWidget
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3521	^ flagBits bitTest:FlagNativeWidget
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3522	!
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3523
4407 d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3524	markAsUnmappedModalBox
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3525	flagBits := flagBits bitOr:FlagIsUnmappedModalBox
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3526	!
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3527
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3528	setWindowClass:windowClassNameString name:nameString
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3529	"define class and name of a window.
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3530	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	3531	select client specific resources."
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3532
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3533	device setWindowClass:windowClassNameString name:nameString in:drawableId.
4407 d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3534	!
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3535
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3536	unmarkAsUnmappedModalBox
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3537	flagBits := flagBits bitClear:FlagIsUnmappedModalBox
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3538	! !
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3539
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3540	!SimpleView methodsFor:'accessing-hierarchy'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3541
756 5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3542	components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3543	"return the collection of non-view components"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3544
4516 d17fa135d9a3 no nil components Claus Gittinger <cg@exept.de> parents: 4515 diff changeset	3545	^ components ? #()
756 5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3546
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3547	"Created: 28.5.1996 / 23:59:37 / cg"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3548	!
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3549
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3550	container
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3551	"return my container"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3552
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3553	^ superView
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3554
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3555	"Created: 5.6.1996 / 01:08:36 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3556	"Modified: 10.1.1997 / 19:47:59 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3557	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3558
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3559	container:aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3560	"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	3561
3558 5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3562	superView == aContainer ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3563	"/ no change
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3564	^ self.
3558 5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3565	].
5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3566
3485 ee2792750943 checkin from browser Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	3567	(drawableId notNil) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3568	"/ actually, this is worth an exception
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3569	"/ ('View [error]: ' , self printString , ' already realized - cannot change container') errorPrintCR.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3570	self error:'already realized - cannot change container' mayProceed:true.
3485 ee2792750943 checkin from browser Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	3571	].
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3572	(superView notNil and:[superView ~~ aContainer]) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3573	"/ actually, this is worth an exception
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3574	('View [warning]: ' , self printString , ' already has a container') errorPrintCR.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3575	superView removeComponent:self.
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3576	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3577	superView := aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3578
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3579	"Created: 9.5.1996 / 00:40:56 / cg"
1297 6fe5dfeba2c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	3580	"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	3581	!
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3582
5211 569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3583	hierarchicalIndex
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3584	^ superView hierarchicalIndexOfChild:self
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3585	!
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3586
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3587	hierarchicalIndexInList:aViewCollection
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3588	\|viewsWithSameName myName\|
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3589
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3590	myName := self uuidStringOrName.
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3591	viewsWithSameName := aViewCollection select:[:v \| v uuidStringOrName = myName].
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3592	viewsWithSameName size = 1 ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3593	^ nil "/ no conflict
5211 569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3594	].
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3595	^ viewsWithSameName indexOf:self
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3596	!
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3597
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3598	hierarchicalIndexOfChild:aView
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3599	^ nil
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3600	!
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3601
5050 f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3602	hierarchicalUUID
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3603
5211 569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3604	\|uuidOrName superV hierarchicalViews hierarchicalUUID separator indexOrNil indexString\|
5050 f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3605
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3606	hierarchicalUUID := ''.
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3607	hierarchicalViews := OrderedCollection with: self.
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3608	superV := self superView.
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3609
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3610	[superV isNil] whileFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3611	hierarchicalViews addFirst: superV.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3612	superV := superV superView.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3613	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3614
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3615	hierarchicalViews doWithIndex:[:aView :index \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3616	uuidOrName := aView uuidStringOrName.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3617	indexString := nil.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3618	index > 1 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3619	indexOrNil := aView hierarchicalIndex.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3620	(indexOrNil notNil and:[indexOrNil ~= 1]) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3621	indexString := '[',indexOrNil printString,']'
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3622	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3623	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3624	separator := index == 1 ifTrue:[''] ifFalse:['.'].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3625	hierarchicalUUID := hierarchicalUUID,separator,uuidOrName,(indexString?'').
5050 f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3626	].
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3627	^ hierarchicalUUID
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3628	!
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3629
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3630	lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3631	"bring to back"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3632
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3633	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3634	device lowerWindow:drawableId
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3635
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3636	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3637	Transcript topView lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3638	"
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3641	raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3642	"bring to front"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3643
5262 d7651814a2db fixed raise, when a modal view opens another modal dialog, Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	3644	"MS-windows:
d7651814a2db fixed raise, when a modal view opens another modal dialog, Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	3645	Raise does not raise a window above windows marked as 'TOPMOST'.
d7651814a2db fixed raise, when a modal view opens another modal dialog, Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	3646	(e.g. cmd.exe appears to mark itself as topmost when it gets the focus).
d7651814a2db fixed raise, when a modal view opens another modal dialog, Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	3647	Use #setForegroundWindow to raise above the currently active window,
d7651814a2db fixed raise, when a modal view opens another modal dialog, Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	3648	or mark as #beScreenDialog before opening"
d7651814a2db fixed raise, when a modal view opens another modal dialog, Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	3649
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3650	drawableId isNil ifTrue:[self create].
5152 c8142cac2023 changed #raise - raiseToTop Claus Gittinger <cg@exept.de> parents: 5140 diff changeset	3651	device raiseWindowToTop:drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3652
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3653	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3654	Transcript topView raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3655	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3656	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3657
5680 66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3658	scrolledView
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3659	"for compatibility with scrolledView, return myself.
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3660	So you can ignore the scrollability of a component when accessing it,
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3661	without a need to ask for being a scrollwrapper first."
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3662
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3663	^ self
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3664
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3665	"Created: / 22-01-2011 / 12:00:41 / cg"
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3666	!
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3667
3625 e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3668	setContainer:aContainer
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3669	"set my container (i.e. superView) to be aContainer"
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3670
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3671	superView := aContainer
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3672	!
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3673
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3674	subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3675	"return the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3676
3626 fa436ffc8ae7 subViews always returns a collection Claus Gittinger <cg@exept.de> parents: 3625 diff changeset	3677	^ subViews ? #()
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3678	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3679
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3680	subViews:aListOfViews
5214 b87c11b492f5 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 5211 diff changeset	3681	<resource: #obsolete>
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3682	"set the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3683
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	3684	self obsoleteMethodWarning.
0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	3685
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3686	subViews := aListOfViews.
135 cf8e46015072 . claus parents: diff changeset	3687	subViews notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3688	subViews do:[:view \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3689	view container:self
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	3690	]
135 cf8e46015072 . claus parents: diff changeset	3691	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3692
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3693	"Modified: 9.5.1996 / 00:42:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	3694	!
cf8e46015072 . claus parents: diff changeset	3695
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3696	superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3697	"return my superView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3698
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3699	^ superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3700	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3701
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3702	superView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3703	"set my superView to be aView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3704
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3705	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3706
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3707	self obsoleteMethodWarning:'use #container:'.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3708	self container:aView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3709
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3710	"Modified: 9.5.1996 / 00:46:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3711	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3712
662 8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3713	topComponent
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3714	"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	3715	For ST-80 compatibility."
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3716
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3717	^ self topView
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3718
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3719	"Modified: 9.5.1996 / 01:40:24 / cg"
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3720	!
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3721
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3722	topView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3723	"return the topView - thats the one with no superview"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3724
3425 9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3725	\|v next n\|
9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3726
9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3727	n := 1.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3728	v := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3729	[v notNil] whileTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3730	(next := v container) isNil ifTrue:[^ v].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3731	v := next.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3732	n := n + 1.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3733	n > 1000 ifTrue:[self error:'circular superView chain'].
135 cf8e46015072 . claus parents: diff changeset	3734	].
cf8e46015072 . claus parents: diff changeset	3735
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3736	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3737
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3738	"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	3739	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3740
5211 569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3741	uuidStringOrName
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3742	\|uuid\|
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3743
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3744	(uuid := self uuid) isNil ifTrue: [^ self name].
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3745	^ uuid printString
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3746	!
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3747
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3748	view
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3749	"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	3750	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	3751
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3752	^ self
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3753
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3754	"Created: 4.6.1996 / 21:32:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3755	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3756
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3757	!SimpleView methodsFor:'accessing-menus'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3758
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3759	menuHolder
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3760	"who has the menu ?
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3761	By default, I have it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3762
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3763	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3764	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3765
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3766	menuMessage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3767	"Return the symbol sent to myself to aquire the menu"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3768
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3769	^ #middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3770	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3771
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3772	menuPerformer
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3773	"who should perform the menu actions ?
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3774	By default, I do it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3775
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3776	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3777	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3778
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3779	yellowButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3780	"actually, this should be called 'middleButtonMenu'.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3781	But for ST-80 compatibility ....
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3782	This method will vanish, once all views have controllers
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3783	associated with them; for now, duplicate some code also found in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3784	controller."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3785
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3786	\|sym menuHolder\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3787
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3788	menuHolder := self menuHolder.
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3789	menuHolder isNil ifTrue:[^ nil].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3790
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3791	(menuHolder isKindOf:Menu) ifTrue:[^ menuHolder].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3792
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3793	sym := self menuMessage.
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3794	sym isNil ifTrue:[^ nil].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3795
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3796	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3797	mhmh - for backward compatibility, try to ask
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3798	the model first, then use the views menu.
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3799	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3800	(menuHolder respondsTo:sym) ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3801	(self respondsTo:sym) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3802	menuHolder := self
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3803	]
5292 7a7caa9d3e7a changed #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3804	].
7a7caa9d3e7a changed #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3805
7a7caa9d3e7a changed #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	3806	sym numArgs > 0 ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3807	"/ squeak compatibility (with args): create the empty menu here, let model add items
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3808	^ menuHolder perform:sym withOptionalArgument:(Menu new) and:(device shiftDown).
3894 9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3809	].
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	3810
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3811	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3812	ask the menuHolder for the menu
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3813	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	3814	^ menuHolder perform:sym.
135 cf8e46015072 . claus parents: diff changeset	3815	! !
cf8e46015072 . claus parents: diff changeset	3816
cf8e46015072 . claus parents: diff changeset	3817	!SimpleView methodsFor:'accessing-misc'!
cf8e46015072 . claus parents: diff changeset	3818
cf8e46015072 . claus parents: diff changeset	3819	bitGravity
cf8e46015072 . claus parents: diff changeset	3820	"return the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	3821	when the the view is resized."
cf8e46015072 . claus parents: diff changeset	3822
cf8e46015072 . claus parents: diff changeset	3823	^ bitGravity
cf8e46015072 . claus parents: diff changeset	3824	!
cf8e46015072 . claus parents: diff changeset	3825
cf8e46015072 . claus parents: diff changeset	3826	bitGravity:gravity
cf8e46015072 . claus parents: diff changeset	3827	"set the bitGravity - thats the direction where the contents will move
cf8e46015072 . claus parents: diff changeset	3828	when the view is resized."
cf8e46015072 . claus parents: diff changeset	3829
cf8e46015072 . claus parents: diff changeset	3830	bitGravity ~~ gravity ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3831	bitGravity := gravity.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3832	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3833	device setBitGravity:gravity in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3834	]
135 cf8e46015072 . claus parents: diff changeset	3835	]
cf8e46015072 . claus parents: diff changeset	3836	!
cf8e46015072 . claus parents: diff changeset	3837
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	3838	clippingRectangle:aRectangle
153 c56277fa4865 . claus parents: 151 diff changeset	3839	"set the clipping rectangle for drawing (in logical coordinates);
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	3840	a nil argument turns off clipping (i.e. whole view is drawable).
153 c56277fa4865 . claus parents: 151 diff changeset	3841	Redefined to care for any margin."
c56277fa4865 . claus parents: 151 diff changeset	3842
c56277fa4865 . claus parents: 151 diff changeset	3843	\|x y w h\|
c56277fa4865 . claus parents: 151 diff changeset	3844
c56277fa4865 . claus parents: 151 diff changeset	3845	aRectangle isNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3846	clipRect isNil ifTrue:[^ self].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3847	gcId notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3848	device noClipIn:drawableId gc:gcId
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3849	]
153 c56277fa4865 . claus parents: 151 diff changeset	3850	] ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3851	clipRect notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3852	(clipRect = aRectangle) ifTrue:[^ self]
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3853	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3854	gcId notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3855	x := aRectangle left.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3856	y := aRectangle top.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3857	w := aRectangle width.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3858	h := aRectangle height.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3859	transformation notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3860	x := transformation applyToX:x.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3861	y := transformation applyToY:y.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3862	w := transformation applyScaleX:w.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3863	h := transformation applyScaleY:h.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3864	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3865	(x isMemberOf:SmallInteger) ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3866	w := w + (x - x truncated).
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3867	x := x truncated
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3868	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3869	(y isMemberOf:SmallInteger) ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3870	h := h + (y - y truncated).
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3871	y := y truncated
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3872	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3873	(w isMemberOf:SmallInteger) ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3874	w := w truncated + 1
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3875	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3876	(h isMemberOf:SmallInteger) ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3877	h := h truncated + 1
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3878	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3879	x < margin ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3880	x := margin.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3881	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3882	y < margin ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3883	y := margin.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3884	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3885	x + w - 1 >= (width-margin) ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3886	w := width - margin - x
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3887	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3888	y + h - 1 >= (height-margin) ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3889	h := height - margin - y
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3890	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3891	w := w max:0.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3892	h := h max:0.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3893	device setClipX:x y:y width:w height:h in:drawableId gc:gcId
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3894	]
153 c56277fa4865 . claus parents: 151 diff changeset	3895	].
c56277fa4865 . claus parents: 151 diff changeset	3896	clipRect := aRectangle
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	3897
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	3898	"Created: 28.5.1996 / 19:50:03 / cg"
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	3899	"Modified: 28.5.1996 / 22:32:15 / cg"
153 c56277fa4865 . claus parents: 151 diff changeset	3900	!
c56277fa4865 . claus parents: 151 diff changeset	3901
c56277fa4865 . claus parents: 151 diff changeset	3902	fullName
c56277fa4865 . claus parents: 151 diff changeset	3903	"return my full name to be used for resource-access"
c56277fa4865 . claus parents: 151 diff changeset	3904
c56277fa4865 . claus parents: 151 diff changeset	3905	superView notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3906	^ superView fullName , '.' , self name
5290 5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	3907	].
5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	3908	^ self name
153 c56277fa4865 . claus parents: 151 diff changeset	3909	!
c56277fa4865 . claus parents: 151 diff changeset	3910
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3911	name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3912	"return my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3913
5290 5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	3914	name isNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3915	name := self class name "asString" asLowercaseFirst
5290 5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	3916	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3917	^ name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3918	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3919
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3920	name:aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3921	"set my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3922
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3923	name := aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3924	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3925
153 c56277fa4865 . claus parents: 151 diff changeset	3926	processName
c56277fa4865 . claus parents: 151 diff changeset	3927	"return a string to be shown in the process monitor"
c56277fa4865 . claus parents: 151 diff changeset	3928
c56277fa4865 . claus parents: 151 diff changeset	3929	^ self name
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3930	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3931
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3932	styleSheet
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3933	"return the styleSheet. This is set at early view-creation time,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3934	from the defaultStyleSheet which is valid at that time.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3935	It is not affected by later defaultStyle changes"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3936
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3937	^ styleSheet
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	"Created: 10.9.1995 / 11:02:20 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3940	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3941
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3942	styleSheet:aStyleSheet
3384 4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3943	"change the styleSheet. Knowledgable users only, please."
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3944
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3945	styleSheet := aStyleSheet.
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3946	!
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	3947
4990 0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	3948	uuid
5017 ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3949	"return my uuid (for the pollonium st/x capture/replay tool)"
ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3950
ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3951	^ uuid
4990 0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	3952	!
0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	3953
0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	3954	uuid:aUUID
5017 ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3955	"set my uuid (for the pollonium st/x capture/replay tool)"
ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3956
ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	3957	uuid := aUUID
4990 0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	3958	!
0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	3959
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3960	viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3961	"return the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3962	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3963
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3964	^ viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3965	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3966
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3967	viewGravity:gravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3968	"set the viewGravity - thats the direction where the view will move
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3969	when the superView is resized."
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	viewGravity ~~ gravity ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3972	viewGravity := gravity.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3973	drawableId notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3974	device setWindowGravity:gravity in:drawableId
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3975	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3976	]
140 0db355079dc4 . claus parents: 138 diff changeset	3977	! !
0db355079dc4 . claus parents: 138 diff changeset	3978
0db355079dc4 . claus parents: 138 diff changeset	3979	!SimpleView methodsFor:'accessing-mvc'!
0db355079dc4 . claus parents: 138 diff changeset	3980
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3981	application
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3982	"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	3983	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	3984
1751 15381229b2d8 accessing application through superView (not topView) ca parents: 1750 diff changeset	3985	superView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	3986	^ superView application
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3987	].
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3988	^ nil
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3989
1190 2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	3990	"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	3991	!
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	3992
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3993	aspect:aspectSymbol
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3994	"ST-80 style updating: If a views aspectSymbol is nonNil,
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3995	it will respond to changes of this aspect from the model.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3996	Alias for aspectMessage: for ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3997
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3998	self aspectMessage:aspectSymbol
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
140 0db355079dc4 . claus parents: 138 diff changeset	4001	controller
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4002	"return the controller. For views which implement the controller
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4003	functionality themself, return the receiver itself"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4004
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4005	^ controller ? self
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4006
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4007	"Modified: / 31.10.1997 / 19:58:10 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	4008	!
0db355079dc4 . claus parents: 138 diff changeset	4009
0db355079dc4 . claus parents: 138 diff changeset	4010	controller:aController
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4011	"set the controller - thats the one handling user events"
140 0db355079dc4 . claus parents: 138 diff changeset	4012
0db355079dc4 . claus parents: 138 diff changeset	4013	controller := aController.
0db355079dc4 . claus parents: 138 diff changeset	4014	controller notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4015	controller view:self.
135 cf8e46015072 . claus parents: diff changeset	4016	]
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4017
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4018	"Modified: / 31.10.1997 / 19:58:33 / cg"
135 cf8e46015072 . claus parents: diff changeset	4019	!
cf8e46015072 . claus parents: diff changeset	4020
140 0db355079dc4 . claus parents: 138 diff changeset	4021	model
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4022	"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	4023
135 cf8e46015072 . claus parents: diff changeset	4024	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4025
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4026	"Modified: 5.6.1996 / 14:17:29 / cg"
135 cf8e46015072 . claus parents: diff changeset	4027	!
cf8e46015072 . claus parents: diff changeset	4028
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4029	sensor
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4030	"return the views sensor"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4031
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4032	windowGroup notNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4033	^ windowGroup sensor.
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	4034	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	4035
4209 af2ef9ba90c5 typo in comment Stefan Vogel <sv@exept.de> parents: 4196 diff changeset	4036	"there is no window group. Deliver events synchronously"
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	4037
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	4038	^ SynchronousWindowSensor new.
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4039
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4040	"Modified: 10.1.1997 / 19:47:13 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4041	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4042
954 3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4043	setController:aController
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4044	"set the controller but do not affect the model/view releationship"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4045
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4046	controller := aController.
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4047
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4048	"Created: 18.7.1996 / 11:43:40 / cg"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4049	!
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4050
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4051	setWindowGroup:aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4052	"set the window group."
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4053
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4054	windowGroup := aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4055
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4056	"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	4057	!
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4058
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4059	windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4060	"return the window group. For old style views, return nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4061
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4062	^ windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4063	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4064
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4065	windowGroup:newGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4066	"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	4067	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	4068
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4069	windowGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4070	windowGroup removeView:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4071	windowGroup := nil
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4072	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4073	windowGroup := newGroup.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4074	newGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4075	newGroup addView:self.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	4076
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	4077	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4078	subViews notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4079	subViews do:[:aSubview \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4080	aSubview windowGroup:newGroup
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4081	]
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4082	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4083
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	4084	"Modified: 20.8.1997 / 13:26:37 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4085	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4086
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4087	!SimpleView methodsFor:'accessing-transformation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4088
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4089	maxComponentBottom
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4090	"return the maximum of all components bottoms"
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4091
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4092	components isNil ifTrue:[^ 0].
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4093	^ components inject:0 into:[:maxSoFar :sub \| (sub bottom) max:maxSoFar].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4094
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4095	"Created: / 26-05-1996 / 12:44:05 / cg"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4096	"Modified: / 22-10-2010 / 10:49:08 / cg"
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4097	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4098
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4099	maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4100	"return the maximum of all components rights"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4101
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4102	components isNil ifTrue:[^ 0].
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4103	^ components inject:0 into:[:maxSoFar :sub \| (sub right) max:maxSoFar].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4104
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4105	"Created: / 26-05-1996 / 13:02:19 / cg"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4106	"Modified: / 22-10-2010 / 10:48:53 / cg"
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4107	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4108
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4109	maxSubViewBottom
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4110	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4111	"/ ^ 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	4112	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4113	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4114
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4115	maxSubViewRight
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4116	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4117	"/ ^ 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	4118	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4119	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4120
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4121	scale:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4122	"set the scale factor of the transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4123
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4124	super scale:aPoint.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4125	self computeInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4126	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4127
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4128	setViewOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4129	"set the viewOrigin - i.e. virtually scroll without redrawing"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4130
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4131	\|p\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4132
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4133	p := aPoint negated.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4134	transformation isNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4135	transformation := WindowingTransformation scale:1 translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4136	] ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4137	transformation translation:p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4138	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4139	clipRect notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4140	self setInnerClip.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4141	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4142	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4143
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4144	viewOrigin
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4145	"return the viewOrigin; thats the coordinate of the contents
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4146	which is shown topLeft in the view
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4147	(i.e. the origin of the visible part of the contents)."
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	transformation isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4150	^ 0@0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4151	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4152	^ transformation translation negated
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4153	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4154
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4155	visibleArea
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4156	"return the rectangle that contains the visible part
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4157	of the view in user coordinates."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4158
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4159
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4160	transformation isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4161	^ 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	4162	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4163	^ Rectangle origin:(transformation translation negated)
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4164	extent:((width @ height) scaledBy:(transformation scale)).
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4165
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4166	"Created: 12.7.1996 / 11:57:04 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4167	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4168
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4169	xOriginOfContents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4170	"return the x coordinate of the viewOrigin in pixels;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4171	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4172
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4173	^ self viewOrigin x
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4174	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4175
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4176	yOriginOfContents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4177	"return the y coordinate of the viewOrigin in pixels;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4178	used by scrollBars to compute thumb position within the document."
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	^ self viewOrigin y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4181	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4182
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4183	!SimpleView methodsFor:'accessing-visibility'!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4184
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4185	beInvisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4186	"make the view invisible; if my container is visible,
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4187	change visibility immediately;
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4188	otherwise, arrange for the receiver to be not realized,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4189	when the container is made visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4190
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4191	self hiddenOnRealize:true.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4192	realized ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4193	(superView isNil "/ I am a topView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4194	or:[superView realized "/ superview already shown
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4195	or:[superView id notNil]]) "/ superview already created
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4196	ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4197	self unmap
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4198	]
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4199	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4200
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4201	"Modified: 3.4.1997 / 21:20:40 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4202	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4203
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4204	beVisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4205	"make the view visible; if my container is already visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4206	change visibility immediately; otherwise, arrange for the receiver
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4207	to be made visible when the container is made visible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4208	Notice, that the command may not be sent immediately to the display,
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4209	and that ST/X considers the view to be still invisible until a
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4210	visibility event arrives from the display.
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4211	Thus, the view may remain logically invisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4212	for a while. (see #beVisibleNow for more on this)"
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4213
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4214	self hiddenOnRealize:false.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4215	realized ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4216	superView isNil ifTrue:[ "/ I am a topView
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4217	drawableId isNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4218	"this once was:
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4219	self realize.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4220	but we don't want Topviews to realize implicitly.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4221	BTW. the code doesn't work anyway"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4222	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4223	self remap.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4224	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4225	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4226	(superView realized "/ superview already shown
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4227	or:[superView id notNil]) "/ superview already created
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4228	ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4229	self realize
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4230	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4231	].
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4232	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4233
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4234	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4235	\|top topFrame check list\|
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4236
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4237	top := StandardSystemView new.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4238	top extent:150@400.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4239	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	4240	topFrame horizontalLayout:#leftSpace.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4241
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4242	topFrame add:(check := CheckBox label:'hidden').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4243	check pressAction:[list beInvisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4244	check releaseAction:[list beVisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4245
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4246	list := ScrollableView for:SelectionInListView.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4247	list origin:0.0@0.4 corner:1.0@1.0.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4248	list list:#('foo' 'bar' 'baz').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4249	top add:list.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4250
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4251	check turnOn.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4252	list beInvisible.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4253
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4254	top open
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4255	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4256
1981 0c3b8ef42df8 Take care of views with nil visibleID in #beVisible Stefan Vogel <sv@exept.de> parents: 1960 diff changeset	4257	"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	4258	"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	4259	"Modified: / 14.1.1998 / 17:33:15 / stefan"
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4260	!
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4261
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4262	beVisibleNow
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4263	"make the view visible immediately.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4264	In contrast to #beVisible, this waits until the view is really
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4265	visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4266
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4267	self beVisible.
3648 95c073f74e25 comments Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	4268	device sync. "thats a round-trip; when returning, the view is definitely visible"
95c073f74e25 comments Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	4269
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	4270	"/ realized := true.
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	4271	"/ shown := true.
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4272
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4273	"Created: 3.4.1997 / 21:23:28 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4274	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4275
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4276	hidden
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4277	"return true, if the view does not want to be realized
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4278	automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4279
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	4280	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	4281
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4282	self obsoleteMethodWarning:'use #isHiddenOnRealize'.
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4283	^ self isHiddenOnRealize
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4284
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4285	"Modified: 17.6.1997 / 11:19:55 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4286	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4287
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4288	hidden:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4289	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4290	be realized automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4291
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	4292	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	4293
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4294	self obsoleteMethodWarning:'use #hiddenOnRealize:'.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4295	self hiddenOnRealize:aBoolean
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4296
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4297	"Modified: 17.1.1996 / 11:45:06 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4298	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4299
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4300	hiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4301	"if the argument is true, the receiver view will not
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4302	be mapped (i.e. shown) automatically when the superview is realized.
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4303	The hiddenOnRealize flag is useful to create views which are
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4304	to be made visible conditionally or later.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4305	For ST-80 compatibility, please use #beVisible / #beInvisible."
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4306
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4307	"/ hiddenOnRealize := aBoolean
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4308	aBoolean ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	4309	flagBits := flagBits bitOr:FlagHiddenOnRealize
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4310	] ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	4311	flagBits := flagBits bitClear:FlagHiddenOnRealize
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4312	].
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4313
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4314	"Modified: 17.6.1997 / 11:23:26 / cg"
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4315	!
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4316
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4317	isHiddenOnRealize
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	4318	"return true, if the receiver will NOT be mapped when realized.
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4319	False otherwise.
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4320	The hiddenOnRealize flag is useful to create views which are
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4321	to be made visible conditionally or later."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4322
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4323	"/ ^ hiddenOnRealize
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4324	^ flagBits bitTest:FlagHiddenOnRealize.
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4325
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4326	"Created: 17.6.1997 / 11:21:42 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4327	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4328
5679 455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4329	isReallyShown
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4330	"return true, if the view is visible AND all of its containers are"
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4331
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4332	\|v\|
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4333
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4334	v := self.
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4335	[v notNil] whileTrue:[
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4336	v shown ifFalse:[^ false].
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4337	v := v container.
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4338	].
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4339	^ true
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4340
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4341	"Created: / 21-01-2011 / 15:54:18 / cg"
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4342	!
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4343
3516 6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4344	isVisible
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4345	"return true, if the view is visible"
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4346
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4347	^ self realized
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4348	!
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4349
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4350	isVisible:aBoolean
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4351	"make the view visible or invisible"
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4352
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4353	aBoolean ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4354	self beVisible
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4355	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4356	self beInvisible
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4357	]
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4358
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4359	"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	4360	!
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4361
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4362	setVisibilityChannel:aValueHolder
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	4363	"set the valueHolder, which holds the visible boolean value"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	4364
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4365	visibilityChannel := aValueHolder
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	4366	!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	4367
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4368	shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4369	"return true if the view is shown; false if not.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4370	Shown means: the view is mapped and is not completely covered."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4371
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4372	^ shown
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4373	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4374
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4375	visibilityChannel
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4376	"return a valueHolder for visible/invisible"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4377
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4378	^ visibilityChannel
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4379
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4380	"Modified: / 30.3.1999 / 13:49:56 / stefan"
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4381	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4382
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4383	visibilityChannel:aValueHolder
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4384	"set the valueHolder, which holds the visible boolean value"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4385
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4386
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4387	\|prev\|
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4388
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4389	prev := visibilityChannel.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4390	visibilityChannel := aValueHolder.
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4391	self setupChannel:aValueHolder for:#visibilityStateChanged withOld:prev
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4392
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4393	"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4394	\|v h\|
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4395
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4396	v := View new.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4397	v visibilityChannel:(h := ValueHolder with:true).
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4398	v open.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4399	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4400	h value:false.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4401	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4402	h value:true.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4403	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4404	"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4405
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4406	"Created: / 14.1.1998 / 17:11:15 / stefan"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4407	"Modified: / 14.1.1998 / 17:33:40 / stefan"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4408	! !
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4409
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4410	!SimpleView methodsFor:'adding & removing components'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4411
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4412	add:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4413	"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	4414	subComponents."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4415
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4416	self addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4417	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4418
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4419	add:aComponent at:anOrigin
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4420	"for ST-80 compatibility.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4421	add a component at some origin"
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4422
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4423	\|l comp\|
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4424
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4425	comp := aComponent.
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4426
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4427	"/ (comp isWrapper not
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4428	"/ or:[comp isLayoutWrapper not]) ifTrue:[
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4429	"/ comp := LayoutWrapper on:comp
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4430	"/ ].
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4431
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4432	l := anOrigin asLayout.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4433	comp layout:l.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4434
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4435	self addComponent:comp
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4436
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4437	"Modified: 18.4.1997 / 20:00:20 / cg"
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4438	!
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4439
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4440	add:aComponentOrCollection in:aRectangleOrLayoutFrame
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4441	"for ST-80 compatibility.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4442	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	4443	with relative coordinates, or an instance of LayoutFrame, specifying
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4444	both relative coordinates and the insets."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4445
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4446	\|l wrapper\|
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4447
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4448	aComponentOrCollection isCollection ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4449	wrapper := View new.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4450	aComponentOrCollection do:[:aComponent \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4451	wrapper add:aComponent
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4452	]
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4453	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4454	wrapper := aComponentOrCollection
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4455	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4456
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4457	l := aRectangleOrLayoutFrame asLayout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4458
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4459	"/ will soon be replaced by:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4460	"/ aComponent layout:l.
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4461	wrapper geometryLayout:l.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4462
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4463	self addComponent:wrapper.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4464
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4465	^ wrapper
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4466
1756 d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	4467	"Modified: 17.6.1997 / 18:03:34 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4470	addComponent:aComponent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4471	"components (i.e. gadgets or lightweight views) are being prepared.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4472	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4473
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4474	aComponent isView ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4475	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4476	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4477	components isNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4478	components := OrderedCollection new
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4479	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4480	components add:aComponent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4481	aComponent container:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4482	shown ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4483	aComponent displayOn:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4484	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4485	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4486
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	4487	"Modified: 13.5.1996 / 21:19:51 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4488	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4489
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4490	addSubView:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4491	"add a view to the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4492
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4493	subViews isNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4494	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4495	] ifFalse:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4496	(subViews includesIdentical:newView) ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4497	self error:'trying to add a view twice' mayProceed:true.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4498	^ self.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4499	].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4500	subViews add:newView.
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4501	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4502	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4503
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4504	"Modified: 9.5.1996 / 00:47:16 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4505	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4506
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4507	addSubView:newView after:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4508	"add a view to the collection of subviews after another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4509	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	4510	element at some defined place."
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	subViews isNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4513	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4514	] ifFalse:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4515	(subViews includesIdentical:newView) ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4516	self error:'trying to add a view twice' mayProceed:true.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4517	^ self.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4518	].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4519	aView isNil ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4520	subViews add:newView
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4521	] ifFalse:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4522	subViews add:newView after:aView.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4523	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4524	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4525	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4526
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4527	"Modified: 9.5.1996 / 00:47:20 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4528	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4529
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4530	addSubView:newView before:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4531	"add a view to the collection of subviews before another view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4532	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	4533	element at some defined place."
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	subViews isNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4536	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4537	] ifFalse:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4538	(subViews includesIdentical:newView) ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4539	self error:'trying to add a view twice' mayProceed:true.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4540	^ self.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4541	].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4542	aView isNil ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4543	subViews addFirst:newView
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4544	] ifFalse:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4545	subViews add:newView before:aView.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4546	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4547	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4548	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4549
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4550	"Modified: 9.5.1996 / 00:47:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4551	!
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	addSubView:aView in:bounds borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4554	"for ST-80 V2.x compatibility"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4555
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4556	aView borderWidth:bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4557	self add:aView in:bounds.
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
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4560	addSubViewFirst:newView
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4561	"add a view to the front of the collection of subviews"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4562
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4563	subViews isNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4564	subViews := OrderedCollection with:newView
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4565	] ifFalse:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4566	(subViews includesIdentical:newView) ifTrue:[
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4567	self error:'trying to add a view twice' mayProceed:true.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4568	^ self.
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4569	].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	4570	subViews addFirst:newView.
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4571	].
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4572	self setContainerIn:newView.
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4573
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4574	"Modified: 9.5.1996 / 00:47:16 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4575	"Created: 6.3.1997 / 18:43:38 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4576	!
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4577
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4578	component:aComponent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4579	"components (i.e. gadgets or lightweight views) are being prepared.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4580	Dont use this right now for non-views"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4581
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4582	aComponent origin:0.0@0.0 corner:1.0@1.0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4583	aComponent isView ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4584	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4585	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4586	components := OrderedCollection with:aComponent.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4587	aComponent container:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4588
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4589	shown ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4590	aComponent displayOn:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4591	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4592	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4593
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	4594	"Modified: 13.5.1996 / 21:20:29 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4597	destroySubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4598	"remove all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4599
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4600	subViews notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4601	subViews copy do:[:aSubView \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4602	aSubView destroy.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4603	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4604
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4605	"/ paranoia ;-)
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4606	subViews size ~~ 0 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4607	(self class name , ' >>View [warning]: some subView(s) did not destroy: ' , subViews printString) infoPrintCR.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4608	subViews := nil
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4609	].
5245 af593d6e31a9 handle non-view components in destroySubViews Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	4610	].
af593d6e31a9 handle non-view components in destroySubViews Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	4611
af593d6e31a9 handle non-view components in destroySubViews Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	4612	components notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4613	components copy do:[:aComponent \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4614	aComponent destroy.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4615	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	4616	components := nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4617	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4618	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4619
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4620	removeComponent:aComponent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4621	"components (i.e. gadgets or lightweight views) are being prepared.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4622	Dont use this right now for non-views"
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	aComponent isView ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4625	self removeSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4626	] ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4627	components isNil ifTrue:[^self].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4628	components remove:aComponent ifAbsent:[].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4629	aComponent container:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4630	]
4579 0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	4631
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	4632	"Modified: / 11-09-2006 / 17:14:30 / User"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4633	!
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	removeSubView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4636	"remove a view from the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4637
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4638	subViews notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4639	subViews remove:aView ifAbsent:[nil].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4640	aView setContainer:nil.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4641
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4642	(subViews size == 0) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4643	subViews := nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4644	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4645	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4646	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4647
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4648	setContainerIn:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4649	"common code for addSubView* methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4650
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4651	aView container:self.
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	4652	(aView graphicsDevice ~~ device) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4653	'SimpleView [warning]: subview (' errorPrint. aView class name errorPrint.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4654	') has different device than me (' errorPrint.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4655	self class name errorPrint. ').' errorPrintCR.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4656	aView device:device
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	4657	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4658
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4659	"Created: 9.5.1996 / 00:46:59 / cg"
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	4660	"Modified: 10.1.1997 / 18:06:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4661	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4662
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4663	!SimpleView methodsFor:'change & update'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4664
1437 9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4665	changedPreferredBounds:someArgument
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4666	"tell any dependents, that I have changed my preferred bounds;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4667	Interface is provided mostly provided for ST80 compatibility;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4668	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	4669
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4670	^ self changed:#preferredExtent
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4671
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4672	"Modified: 6.3.1997 / 16:12:02 / cg"
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4673	!
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4674
4038 538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4675	languageChanged
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4676	!
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4677
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4678	update:aspect with:aParameter from:changedObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4679	"an update request"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4680
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4681	aspect == #sizeOfView ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4682	"one of the views we depend on changed its size"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4683	^ self containerChangedSize.
3730 00bc72f859c5 code beautified Claus Gittinger <cg@exept.de> parents: 3715 diff changeset	4684	].
00bc72f859c5 code beautified Claus Gittinger <cg@exept.de> parents: 3715 diff changeset	4685	super update:aspect with:aParameter from:changedObject
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4686
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4687	"Modified: 19.7.1996 / 17:30:48 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4688	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4689
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4690	!SimpleView methodsFor:'cursor animation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4691
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4692	showBusyWhile:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4693	"evaluate some time consuming block, while doing this,
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4694	show a spinning wheel cursor. If those bitmaps are not found,
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4695	fallback to the standard busy cursor.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4696	Experimental."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4697
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4698	\|ok bitmaps cursors maskForm process oldCursor\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4699
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4700	oldCursor := cursor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4701
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4702	ok := true.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4703	bitmaps := #('wheel1' 'wheel2' 'wheel3' 'wheel4')
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4704	collect:[:name \|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4705	\|f\|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4706
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4707	f := Smalltalk imageFromFileNamed:(name , '.xbm') forClass:self class.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4708	f isNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4709	('SimpleView [warning]: no bitmap file: ' , name , '.xbm') errorPrintCR.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4710	ok := false
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4711	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4712	f
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4713	].
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	4714
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4715	ok ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4716	maskForm := Smalltalk imageFromFileNamed:'wheelm.xbm' forClass:self class.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4717	maskForm isNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4718	('SimpleView [warning]: no bitmap file: wheelm.xbm') errorPrintCR.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4719	ok := false
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4720	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4721	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4722
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4723	ok ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4724	self cursor:Cursor wait.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4725	aBlock ensure:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4726	self cursor:oldCursor
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4727	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4728	] ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4729	cursors := bitmaps collect:[:form \| (Cursor sourceForm:form
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4730	maskForm:maskForm
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4731	hotX:8
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4732	hotY:8) onDevice:device].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4733
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4734	process := [
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4735	Delay waitForSeconds:0.25.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4736	[true] whileTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4737	cursors do:[:curs \|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4738	self cursor:curs.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4739	Delay waitForSeconds:0.05
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4740	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4741	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4742	] forkAt:(Processor activeProcess priority + 1).
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4743
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4744	aBlock ensure:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4745	process terminate.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4746	self cursor:oldCursor
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4747	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4748	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4749
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4750	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4751	View new realize showBusyWhile:[ Delay waitForSeconds:5 ]
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4752	Transcript showBusyWhile:[ Delay waitForSeconds:5 ]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4753	"
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	4754
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4755	"Modified: / 31.10.1997 / 19:59:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4756	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4757
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4758	!SimpleView methodsFor:'dependents access'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4759
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4760	addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4761	"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	4762
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4763	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4764
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4765	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4766	[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4767	\|deps\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4768
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4769	deps := dependents.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4770	"/
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4771	"/ store the very first dependent directly in
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4772	"/ the dependents instVar
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4773	"/
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4774	(deps isNil and:[anObject isCollection not]) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4775	dependents := anObject
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4776	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4777	"/
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4778	"/ store more dependents in the dependents collection
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4779	"/
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4780	deps isCollection ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4781	deps add:anObject
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4782	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4783	deps == anObject ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4784	deps isNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4785	dependents := (IdentitySet with:anObject)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4786	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4787	dependents := (IdentitySet with:deps with:anObject)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4788	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4789	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4790	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4791	]
3604 e32b5044a59e #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	4792	] ensure:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4793	wasBlocked ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4794	OperatingSystem unblockInterrupts
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4795	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4796	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4797
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4798	"Modified: 8.1.1997 / 23:40:30 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4799	"Created: 11.6.1997 / 13:10:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4800	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4801
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4802	dependents
2015 f53883507ed9 comment Claus Gittinger <cg@exept.de> parents: 2009 diff changeset	4803	"return a Collection of dependents"
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4804
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4805	dependents isNil ifTrue:[^ #()].
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4806	dependents isCollection ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4807	^ dependents
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4808	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4809	^ IdentitySet with:dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4810
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4811	"Created: / 11.6.1997 / 13:10:44 / cg"
2015 f53883507ed9 comment Claus Gittinger <cg@exept.de> parents: 2009 diff changeset	4812	"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	4813	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4814
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4815	dependents:aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4816	"set the collection of dependents"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4817
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4818	\|dep\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4819
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4820	aCollection size == 1 ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4821	dep := aCollection first.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4822	dep isCollection ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4823	dependents := aCollection first.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4824	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4825	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4826	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4827	dependents := aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4828
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4829	"Modified: 19.4.1996 / 12:23:05 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4830	"Created: 11.6.1997 / 13:10:47 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4831	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4832
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4833	dependentsDo:aBlock
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4834	"evaluate aBlock for all of my dependents"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4835
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4836	\|deps\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4837
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4838	deps := dependents.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4839	deps notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4840	deps isCollection ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4841	deps do:aBlock
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4842	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4843	aBlock value:deps
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	4844	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4845	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4846
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4847	"Created: 11.6.1997 / 13:10:51 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4848	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4849
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4850	removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4851	"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	4852
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4853	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4854
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4855	"/ 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	4856	"/ is possibly accessed from multiple threads.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4857	"/ 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	4858	"/ faster execution.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4859
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4860	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4861	[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4862	\|deps sz dep\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4863
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4864	deps := dependents.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4865	deps notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4866	deps isCollection ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4867	deps remove:anObject ifAbsent:[].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4868	(sz := deps size) == 0 ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4869	dependents := nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4870	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4871	sz == 1 ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4872	(dep := deps first) isCollection ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4873	dependents := dep
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4874	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4875	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4876	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4877	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4878	deps == anObject ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4879	dependents := nil
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4880	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4881	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4882	]
3604 e32b5044a59e #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	4883	] ensure:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4884	wasBlocked ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4885	OperatingSystem unblockInterrupts
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	4886	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4887	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4888
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4889	"Modified: 8.1.1997 / 23:41:39 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4890	"Created: 11.6.1997 / 13:11:58 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4891	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4892
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4893	!SimpleView methodsFor:'dependents access (non weak)'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4894
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4895	addNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4896	"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	4897	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	4898	forwarded to addDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4899
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4900	^ self addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4901
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4902	"Created: 11.6.1997 / 13:15:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4903	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4904
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4905	interests
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4906	"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	4907	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	4908
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4909	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4910
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4911	"Modified: / 14.10.1996 / 22:19:58 / stefan"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4912	"Created: / 11.6.1997 / 13:15:44 / cg"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4913	"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	4914	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4915
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4916	nonWeakDependents
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4917	"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	4918	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	4919
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4920	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4921
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4922	"Created: / 11.6.1997 / 13:15:48 / cg"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	4923	"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	4924	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4925
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4926	removeNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4927	"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	4928	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	4929	forwarded to removeDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4930
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4931	^ self removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4932
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4933	"Created: 11.6.1997 / 13:15:52 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4934	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	4935
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4936	!SimpleView methodsFor:'drag & drop'!
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4937
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4938	canDrop:aDropContext
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4939	"return true, if we can drop using a dropContexts information (the new drop interface).
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	4940	This method should be redefined in views which can take objects"
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	4941
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4942	^ false
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4943
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4944	"Modified: / 13-10-2006 / 16:05:23 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4945	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4946
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4947	canDrop:aDropContext at:positionInView
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4948	"return true, if we can drop using a dropContexts information (the new drop interface).
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4949	This method should be redefined in views which can take objects"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4950
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4951	^ self canDrop:aDropContext
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4952
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4953	"Modified: / 13-10-2006 / 16:05:42 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4954	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4955
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4956	canDropObjects:aCollectionOfDropObjects
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4957	"return true, if we can drop aCollectionOfDropObjects (the OLD drop interface).
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4958	This method should be redefined in views which can take objects"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4959
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4960	^ false
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4961
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4962	"Modified: / 13-10-2006 / 16:06:03 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4963	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4964
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4965	canDropObjects:aCollectionOfDropObjects at:positionInView
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4966	"return true, if we can drop aCollectionOfDropObjects (the OLD drop interface).
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4967	This method should be redefined in views which can take objects"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4968
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4969	^ self canDropObjects:aCollectionOfDropObjects
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4970
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4971	"Modified: / 13-10-2006 / 16:06:15 / cg"
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4972	!
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	4973
3947 64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4974	dragAutoScroll:aContext
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4975	"called by the DragAndDropManager to scroll during a drag/drop operation
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4976	if necassery (decided by the widget itself);
4460 c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	4977	If a scroll is done, return true otherwise false (used to restore the background).
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	4978	By default false is returned."
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	4979
3947 64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4980	^ false
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4981	!
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	4982
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4983	drop:aDropContext
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4984	"drop manager wants to drop using info in aDropContext (the new drop interface).
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	4985	An error here, because this is only sent, if #canDrop: returned true;
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	4986	if you redefined #canDrop: in a subclass, #drop: must also be redefined."
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	4987
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	4988	self subclassResponsibility
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	4989
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4990	"Modified: / 13-10-2006 / 16:07:58 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4991	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4992
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4993	drop:aDropContext at:aPoint
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4994	"drop manager wants to drop using info in aDropContext (the new drop interface).
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4995	If I have an application, forward the request.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4996	Otherwise, ignore it. This is only sent, if #canDrop: returned true;
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4997	if you redefined #canDrop: in a subclass, #drop:at: must also be redefined."
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	4998
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	4999	self drop:aDropContext
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5000
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5001	"Modified: / 13-10-2006 / 16:07:41 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5002	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5003
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5004	dropObjects:aCollectionOfDropObjects
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5005	"someone wants to drop aCollectionOfDropObjects (the OLD drop interface).
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5006	An error here, because this is only sent, if #canDrop: returned true;
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5007	if you redefined #canDropObjects: in a subclass, #dropObjects: must also be redefined."
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5008
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5009	self subclassResponsibility
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5010
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5011	"Created: / 13-10-2006 / 16:06:48 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5012	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5013
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5014	dropObjects:aCollectionOfDropObjects at:aPoint
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5015	"someone wants to drop aCollectionOfDropObjects (the OLD drop interface).
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5016	An error here, because this is only sent, if #canDrop: returned true;
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5017	if you redefined #canDropObjects: in a subclass, #dropObjects: must also be redefined."
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5018
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5019	self dropObjects:aCollectionOfDropObjects
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5020
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5021	"Created: / 13-10-2006 / 16:07:03 / cg"
3591 3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	5022	!
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	5023
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	5024	dropTarget
4460 c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5025	"returns the dropTarget or nil"
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5026
4471 c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5027	^ dropTarget
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5028	!
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5029
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5030	dropTarget:aDropTragetOrNil
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5031	"set the dropTarget"
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5032
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5033	dropTarget := aDropTragetOrNil.
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5034	! !
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5035
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5036	!SimpleView methodsFor:'edge drawing'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5037
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5038	drawBottomEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5039	"draw bottom 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5040
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5041	self drawBottomEdgeLevel:level
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5042	shadow:shadowColor
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5043	light:lightColor
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5044	halfShadow:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5045	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5046	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5047	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5048
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5049	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	5050	\|botFg
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5051	count "{ Class: SmallInteger }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5052	b r\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5053
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5054	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5055	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5056
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5057	(count < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5058	botFg := lightColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5059	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5060	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5061	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5062	botFg := halfShadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5063	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5064	botFg := shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5065	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5066	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5067	super paint:botFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5068	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5069
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5070	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5071	0 to:(count - 1) do:[:i \|
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5072	b := height - 1 - i.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5073	super displayDeviceLineFromX:i y:b toX:(r - i) y:b
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5074	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5075
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5076	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5077	b := height - 1.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5078	super paint:shadowColor.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5079	super displayDeviceLineFromX:1 y:b toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5080	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5081
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5082	self edgeDrawn:#bottom.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5083
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5084	"Modified: 7.3.1997 / 17:59:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5085	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5086
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5087	drawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5088	"draw all of my 3D edges"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5089
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5090	self drawEdgesForX:0 y:0 width:width height:height level:level
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5091	shadow:shadowColor
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5092	light:lightColor
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5093	halfShadow:nil
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5094	halfLight:nil
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5095	style:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5096	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5097
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5098	drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5099	"draw 3D edges into a rectangle"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5100
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5101	self
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5102	drawEdgesForX:x y:y width:w height:h level:l
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5103	shadow:shadowColor light:lightColor
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5104	halfShadow:nil halfLight:nil
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5105	style:nil
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	5106	!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5107
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5108	drawLeftEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5109	"draw left 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5110
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5111	self drawLeftEdgeLevel:level
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5112	shadow:shadowColor
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5113	light:lightColor
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5114	halfShadow:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5115	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5116	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5117	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5118
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5119	drawLeftEdgeLevel:level shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5120	\|leftFg leftHalfFg paint b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5121	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5122
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5123	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5124	count == 0 ifTrue:[^ self].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5125
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5126	(count < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5127	leftFg := shadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5128	leftHalfFg := halfShadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5129	count := count negated.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5130	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5131	leftFg := lightColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5132	leftHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5133	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5134	leftHalfFg isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5135	leftHalfFg := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5136	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5137
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5138	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5139	paint := leftHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5140	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5141	paint := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5142	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5143	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5144	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5145
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5146	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5147	0 to:(count - 1) do:[:i \|
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5148	super displayDeviceLineFromX:i y:i toX:i y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5149	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5150
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5151	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5152	super paint:(device blackColor).
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5153	super displayDeviceLineFromX:0 y:0 toX:0 y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5154	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5155
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5156	self edgeDrawn:#left.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5157
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5158	"Modified: 7.3.1997 / 17:59:53 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5159	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5160
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5161	drawRightEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5162	"draw right 3D edge into window frame"
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	self drawRightEdgeLevel:level
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5165	shadow:shadowColor
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5166	light:lightColor
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5167	halfShadow:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5168	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5169	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5170	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5171
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5172	drawRightEdgeLevel:level shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5173	\|rightFg
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5174	count "{ Class: SmallInteger }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5175	r b\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5176
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5177	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5178	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5179
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5180	(count < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5181	rightFg := lightColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5182	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5183	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5184	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5185	rightFg := halfShadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5186	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5187	rightFg := shadowColor
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5188	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5189	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5190	super paint:rightFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5191	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5192
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5193	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5194	0 to:(count - 1) do:[:i \|
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5195	r := width - 1 - i.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5196	super displayDeviceLineFromX:r y:i toX:r y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5197	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5198	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5199	r := width - 1.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5200	super paint:shadowColor.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5201	super displayDeviceLineFromX:r y:1 toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5202	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5203
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5204	self edgeDrawn:#right.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5205
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5206	"Modified: 7.3.1997 / 18:00:02 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5207	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5208
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5209	drawTopEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5210	"draw top 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5211
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5212	self drawTopEdgeLevel:level
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5213	shadow:shadowColor
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5214	light:lightColor
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5215	halfShadow:nil
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5216	halfLight:nil
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5217	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5218	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5219
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5220	drawTopEdgeLevel:level shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5221	\|topFg topHalfFg paint r
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5222	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5223
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5224	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5225	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5226
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5227	(count < 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5228	topFg := shadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5229	topHalfFg := halfShadowColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5230	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5231	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5232	topFg := lightColor.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5233	topHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5234	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5235	topHalfFg isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5236	topHalfFg := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5237	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5238
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5239	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5240	paint := topHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5241	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5242	paint := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5243	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5244	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5245	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5246
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5247	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5248	0 to:(count - 1) do:[:i \|
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5249	super displayDeviceLineFromX:i y:i toX:(r - i) y:i
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5250	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5251	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5252	super paint:(device blackColor).
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5253	super displayDeviceLineFromX:0 y:0 toX:r y:0.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5254	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5255
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5256	self edgeDrawn:#top.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5257
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5258	"Modified: 7.3.1997 / 18:00:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5259	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5260
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5261	redrawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5262	"redraw my edges (if any)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5263
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5264	(level ~~ 0) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5265	shown ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5266	self clippingRectangle:nil.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5267	self drawEdges.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5268	self deviceClippingRectangle:innerClipRect
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5269	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5270	]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5271
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5272	"Modified: / 25.5.1999 / 14:50:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5273	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5274
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5275	!SimpleView methodsFor:'enumerating subviews'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5276
4720 eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5277	allSubViewsDetect:aBlock ifNone:exceptionBlock
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5278	"find a subview for which aBlock returns true (recursively)"
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5279
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5280	subViews notNil ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5281	subViews do:[:aSubview \|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5282	\|v\|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5283
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5284	(aBlock value:aSubview) ifTrue:[ ^ aSubview ].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5285	v := aSubview allSubViewsDetect:aBlock ifNone:nil.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5286	v notNil ifTrue:[^ v].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5287	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5288	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5289	^ exceptionBlock value.
4720 eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5290
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5291	"Modified: 12.2.1997 / 12:23:38 / cg"
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5292	!
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5293
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5294	allSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5295	"evaluate aBlock for all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5296
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	5297	subViews notNil ifTrue:[
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	5298	subViews do:[:aSubview \|
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	5299	aSubview withAllSubViewsDo:aBlock
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	5300	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5301	]
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	5302
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	5303	"Modified: 12.2.1997 / 12:23:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5304	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5305
5548 4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5306	allVisibleSubViewsDetect:aBlock ifNone:exceptionBlock
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5307	"find a visible subview for which aBlock returns true (recursively)"
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5308
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5309	subViews notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5310	subViews do:[:aSubview \|
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5311	\|v\|
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5312
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5313	aSubview shown ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5314	(aBlock value:aSubview) ifTrue:[ ^ aSubview ].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5315	v := aSubview allVisibleSubViewsDetect:aBlock ifNone:nil.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5316	v notNil ifTrue:[^ v].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5317	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5318	]
5548 4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5319	].
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5320	^ exceptionBlock value.
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5321	!
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5322
5254 ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5323	changeSequenceOrderFor:aSubViewOrComponent to:anIndex
1984 e34624152bf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1981 diff changeset	5324	"change a subview's position in the subviews collection.
5254 ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5325	Usually, this only affects the order of components in a panelView,
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5326	unless they overlap. In that case, the later view is placed above the earlier."
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5327
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5328	aSubViewOrComponent isView ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5329	^ self changeSequenceOrderForComponent:aSubViewOrComponent to:anIndex
5254 ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5330	].
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5331	^ self changeSequenceOrderForView:aSubViewOrComponent to:anIndex
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5332	!
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5333
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5334	changeSequenceOrderForComponent:aComponent to:anIndex
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5335	"change a components's position in the components collection.
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5336	The later components is drawn above the earlier."
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5337
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5338	\|removedComponent\|
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5339
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5340	(components notNil and:[components size >= anIndex]) ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5341	removedComponent := components remove:aComponent ifAbsent:nil.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5342	removedComponent notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5343	components add:removedComponent beforeIndex:anIndex.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5344	^ true
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5345	]
5254 ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5346	].
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5347	^ false
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5348	!
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5349
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5350	changeSequenceOrderForView:aSubView to:anIndex
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5351	"change a subview's position in the subviews collection.
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5352	Usually, this only affects the order of components in a panelView,
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5353	unless they overlap. In that case, the later view is placed above the earlier."
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5354
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5355	\|removedView\|
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5356
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5357	(subViews notNil and:[subViews size >= anIndex]) ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5358	removedView := subViews remove:aSubView ifAbsent:nil.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5359	removedView notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5360	subViews add:removedView beforeIndex:anIndex.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5361	^ true
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5362	]
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5363	].
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5364	^ false
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5365	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5366
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5367	withAllSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5368	"evaluate aBlock for the receiver and all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5369
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5370	aBlock value:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5371	self allSubViewsDo:aBlock
135 cf8e46015072 . claus parents: diff changeset	5372	! !
cf8e46015072 . claus parents: diff changeset	5373
cf8e46015072 . claus parents: diff changeset	5374	!SimpleView methodsFor:'event handling'!
cf8e46015072 . claus parents: diff changeset	5375
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5376	alienDrop:aCollectionOfDropObjects position:positionOrNil
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	5377	"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	5378
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5379	\|view positionInView tDelayed
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5380	anyNonExisting whichNonExisting checkForAnyNonExisting
4654 baa4bc036ec4 drag & drop Claus Gittinger <cg@exept.de> parents: 4652 diff changeset	5381	app target dropContext\|
4652 7e85c43bb11e aliendrop Claus Gittinger <cg@exept.de> parents: 4651 diff changeset	5382
7e85c43bb11e aliendrop Claus Gittinger <cg@exept.de> parents: 4651 diff changeset	5383	"/ mhmh - sometimes, the dropped file is not present.
7e85c43bb11e aliendrop Claus Gittinger <cg@exept.de> parents: 4651 diff changeset	5384	"/ how comes ? And what should be done to avoid this ?
4463 d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5385
d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5386	checkForAnyNonExisting :=
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5387	[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5388	anyNonExisting := false.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5389	aCollectionOfDropObjects do:[:eachDropObject \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5390	eachDropObject isFileObject ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5391	eachDropObject isDirectory ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5392	eachDropObject theObject asFilename exists ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5393	anyNonExisting := true.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5394	whichNonExisting := eachDropObject theObject asFilename.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5395	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5396	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5397	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5398	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5399	anyNonExisting
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5400	].
4463 d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5401
4652 7e85c43bb11e aliendrop Claus Gittinger <cg@exept.de> parents: 4651 diff changeset	5402	self withWaitCursorDo:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5403	tDelayed := 0.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5404	checkForAnyNonExisting doWhile:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5405	anyNonExisting ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5406	Delay waitForSeconds:0.3.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5407	tDelayed := tDelayed + 0.3.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5408	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5409	anyNonExisting and:[ tDelayed <= 3].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5410	].
4463 d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5411	].
d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5412
d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5413	(anyNonExisting and:[checkForAnyNonExisting value]) ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5414	Dialog warn:('Dropfile not present: %1' bindWith:whichNonExisting pathName).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5415	^ self
4463 d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5416	].
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5417
934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5418	view := self.
934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5419	positionInView := positionOrNil.
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5420
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5421	app := view application.
5031 733b5e829b2b care for nil application in alienDrop:position: Claus Gittinger <cg@exept.de> parents: 5029 diff changeset	5422	app notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5423	(app canDropObjects:aCollectionOfDropObjects in:view at:positionInView) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5424	app dropObjects:aCollectionOfDropObjects in:view at:positionInView.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5425	^ self.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5426	].
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5427	].
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5428
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5429	[view notNil] whileTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5430	"new mechanism to get a dropTarget"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5431	target := view dropTarget.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5432	target notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5433	dropContext := DropContext new.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5434	dropContext dropObjects:aCollectionOfDropObjects.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5435	dropContext dropTarget:target.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5436
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5437	(target canDrop:dropContext) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5438	target drop:dropContext.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5439	^ self.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5440	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5441	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5442
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5443	(view canDropObjects:aCollectionOfDropObjects at:positionInView) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5444	view dropObjects:aCollectionOfDropObjects at:positionInView.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5445	^ self.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5446	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5447	view := view superView.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5448	positionInView := nil.
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	5449	]
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	5450
4654 baa4bc036ec4 drag & drop Claus Gittinger <cg@exept.de> parents: 4652 diff changeset	5451	"Modified: / 17-10-2006 / 18:00:46 / cg"
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	5452	!
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	5453
4579 0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5454	buttonMultiPress:button x:x y:y
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5455	"button was pressed quickly again - check my components for a hit."
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5456
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5457	components notNil ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5458	self componentsContainingX:x y:y do:[:comp :cx :cy \|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5459	comp buttonMultiPress:button x:cx y:cy.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5460	^ self
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5461	]
4579 0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5462	].
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5463
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5464	super buttonMultiPress:button x:x y:y
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5465
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5466	"Modified: / 08-05-1996 / 23:43:41 / cg"
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5467	"Created: / 13-09-2006 / 16:34:23 / User"
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5468	!
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5469
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5470	buttonPress:button x:x y:y
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5471	"button was pressed - check my components for a hit."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5472
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5473	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5474	self componentsContainingX:x y:y do:[:comp :cx :cy \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5475	comp buttonPress:button x:cx y:cy.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5476	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5477	]
140 0db355079dc4 . claus parents: 138 diff changeset	5478	].
0db355079dc4 . claus parents: 138 diff changeset	5479
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5480	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	5481
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5482	"Modified: 8.5.1996 / 23:43:41 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5483	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5484
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5485	buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5486	"button was released - check my components for a hit."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5487
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5488	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5489	self componentsContainingX:x y:y do:[:comp :cx :cy \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5490	comp buttonRelease:button x:cx y:cy.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5491	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5492	]
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5493	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5494
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5495	super buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5496
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5497	"Modified: 8.5.1996 / 23:41:58 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5498	"Created: 8.5.1996 / 23:43:25 / cg"
193 3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	5499	!
3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	5500
5133 6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5501	changeScaleForMouseWheelZoom:amount
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5502	"CTRL-wheel action.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5503	ignored here - redefined in views which can zoom"
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5504
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5505	\|oldScale newScale factor\|
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5506
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5507	amount > 0 ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5508	factor := 1.2.
5133 6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5509	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5510	factor := 0.8.
5133 6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5511	].
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5512	oldScale := self scale.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5513	newScale := (oldScale * factor) max:0.1.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5514	self scale:newScale.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5515	self invalidate.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5516	!
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5517
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5518	clientMessage:msgType format:msgFormat eventData:msgData
4999 b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5519	"a client message - very X-specific and only useful for special applications.
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5520	Forwarded to my application (if I have one)"
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5521
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5522	\|app\|
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5523
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5524	(app := self application) notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	5525	app clientMessage:msgType format:msgFormat eventData:msgData
4999 b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5526	].
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5527	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5528
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5529	closeRequest
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5530	"programmatic close request"
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5531
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5532	self destroy
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5533
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5534	"Modified: / 3.8.1998 / 19:50:50 / cg"
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5535	!
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5536
140 0db355079dc4 . claus parents: 138 diff changeset	5537	configureX:x y:y width:newWidth height:newHeight
0db355079dc4 . claus parents: 138 diff changeset	5538	"my size has changed by window manager action"
0db355079dc4 . claus parents: 138 diff changeset	5539
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5540	\|how anyEdge mustRedrawBottomEdge mustRedrawRightEdge
5428 62da57f5206d border drawing on resize Claus Gittinger <cg@exept.de> parents: 5422 diff changeset	5541	mustRedrawPreviousRightBorderArea mustRedrawPreviousBottomBorderArea p originChanged\|
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	5542
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	5543	originChanged := (left ~= x) or:[top ~= y].
180 0b3a8658d55e . claus parents: 176 diff changeset	5544
2966 b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	5545	left := x.
b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	5546	top := y.
b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	5547
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5548	(superView isNil
180 0b3a8658d55e . claus parents: 176 diff changeset	5549	and:[drawableId notNil]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5550	"/ have to be careful - some window managers (motif) wrap another
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5551	"/ view around and the reported origin is relative to that.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5552	"/ not relative to the screen.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5553	p := device translatePoint:0@0 fromView:self toView:nil.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5554	p := p + self borderWidth.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5555	left := p x.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5556	top := p y.
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	5557	].
1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	5558
140 0db355079dc4 . claus parents: 138 diff changeset	5559	((width ~~ newWidth) or:[height ~~ newHeight]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5560	realized ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5561	width := newWidth.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5562	height := newHeight.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5563	self extentChangedFlag:true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5564	^ self
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5565	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5566
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5567	((newWidth <= width) and:[newHeight <= height]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5568	how := #smaller
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5569	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5570	((newWidth >= width) and:[newHeight >= height]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5571	how := #larger
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5572	]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5573	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5574
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5575	margin ~~ 0 ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5576	mustRedrawBottomEdge := newHeight < height.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5577	mustRedrawRightEdge := newWidth < width.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5578	anyEdge := mustRedrawBottomEdge or:[mustRedrawRightEdge].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5579
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5580	mustRedrawPreviousRightBorderArea := newWidth > width.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5581	mustRedrawPreviousBottomBorderArea := newHeight > height.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5582	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5583	anyEdge := false
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5584	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5585
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5586	mustRedrawPreviousRightBorderArea ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5587	self invalidateDeviceRectangle:((width-margin)@0 extent:margin@height) repairNow:false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5588	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5589	mustRedrawPreviousBottomBorderArea ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5590	self invalidateDeviceRectangle:((0 @ (height-margin)) extent:width@margin) repairNow:false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5591	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5592
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5593	width := newWidth.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5594	height := newHeight.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5595
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5596	"recompute inner-clip if needed"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5597	self setInnerClip.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5598
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5599	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5600	must first process pending exposes;
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5601	otherwise, those may be drawn at a wrong position
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5602	"
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5603	"/ 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	5604	"/ which is exactly for that reason ...
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5605
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5606	"/ windowGroup notNil ifTrue:[
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5607	"/ windowGroup processExposeEvents
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	5608	"/ ].
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5609	self sizeChanged:how.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5610
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5611	(anyEdge and:[shown]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5612	mustRedrawBottomEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5613	self invalidateDeviceRectangle:((0 @ (height-margin)) extent:width@margin) repairNow:false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5614	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5615	mustRedrawRightEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5616	self invalidateDeviceRectangle:((width-margin)@0 extent:margin@height) repairNow:false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5617	].
2821 8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5618	"/ OLD code:
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5619	"/ self clippingRectangle:nil.
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5620	"/ mustRedrawBottomEdge ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5621	"/ self drawBottomEdge
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5622	"/ ].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5623	"/ mustRedrawRightEdge ifTrue:[
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5624	"/ self drawRightEdge
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5625	"/ ].
8eda25202d32 async border redraw when size changes Claus Gittinger <cg@exept.de> parents: 2816 diff changeset	5626	"/ self deviceClippingRectangle:innerClipRect
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5627	]
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	5628	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	5629
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	5630	originChanged ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5631	self changed:#origin.
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	5632	].
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5633
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	5634	"Modified: / 10.10.2001 / 14:14:19 / cg"
138 3167663e38e7 . claus parents: 137 diff changeset	5635	!
3167663e38e7 . claus parents: 137 diff changeset	5636
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5637	containerChangedSize
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5638	"my container has changed size; if I have relative
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5639	origin/extent or blocks to evaluate, do it now .."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5640
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	5641	\|oldWidth oldHeight oldTop oldLeft newExt newOrg r\|
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5642
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5643	oldWidth := width.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5644	oldHeight := height.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5645	oldTop := top.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5646	oldLeft := left.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5647
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5648	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5649	slowly migrating to use layoutObjects ...
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5650	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5651	layout isNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5652	newOrg := self computeOrigin.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5653	newExt := self computeExtent.
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5654	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5655	r := (layout rectangleRelativeTo:(superView viewRectangle)
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5656	preferred:[self preferredBounds]).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5657	newOrg := r origin rounded.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	5658	newExt := r extent rounded.
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5659	"/ newOrg printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5660	"/ newExt printNL.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5661	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5662
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5663	"/ newOrg notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5664	"/ ((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	5665	"/ newOrg := nil
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5666	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5667	"/ ].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5668	"/ newExt notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5669	"/ ((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	5670	"/ newExt := nil
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5671	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5672	"/ ].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5673	"/
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5674	"/ newExt isNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5675	"/ newOrg notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5676	"/ self pixelOrigin:newOrg
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5677	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5678	"/ ] ifFalse:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5679	"/ newOrg isNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5680	"/ self pixelExtent:newExt
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5681	"/ ] ifFalse:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5682	"/ 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	5683	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5684	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	5685	self pixelOrigin:newOrg extent:newExt
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5686
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5687	"Modified: 19.7.1996 / 17:32:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5688	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5689
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5690	containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5691	"my container was mapped (became visible).
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5692	If I was previously realized, this implies that I myself
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5693	am now mapped as well."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5694
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5695	"/ if I was not previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5696	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5697
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5698	realized ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5699	shown ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5700	"/ old:
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5701	"/ shown := true.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5702	"/ subViews notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5703	"/ subViews do:[:v \|
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5704	"/ v containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5705	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5706	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5707
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5708	"/ which is equivalent to:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5709	self mapped.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5710	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5711	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5712
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5713	"Modified: 30.5.1996 / 11:41:02 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5714	"Created: 19.7.1996 / 17:41:10 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5715	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5716
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5717	containerUnmapped
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5718	"my container was unmapped
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5719	- this implies that the recevier is now also unmapped."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5720
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5721	"/ if I was previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5722	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5723
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5724	realized ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5725	shown ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5726	self unmapped
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5727	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5728	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5729
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5730	"Modified: 30.5.1996 / 11:41:25 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5731	"Created: 19.7.1996 / 17:43:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5732	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	5733
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	5734	copyDataEvent:parameter eventData:msgData
4999 b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5735	"a copyData message - very Win32-specific and only useful for special applications.
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5736	Forwarded to my application (If I have one)"
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5737
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5738	\|app\|
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5739
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5740	(app := self application) notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5741	app copyDataEvent:parameter eventData:msgData
4999 b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5742	].
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5743	!
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5744
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5745	destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5746	"view has been destroyed by someone else (usually window system)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5747
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	5748	shown ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5749	shown := false.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	5750	self changed:#visibility.
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	5751	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5752	super destroyed
3183 e55c249cd6e5 kludge: remove objectAttributes when destroyed. Claus Gittinger <cg@exept.de> parents: 3182 diff changeset	5753
e55c249cd6e5 kludge: remove objectAttributes when destroyed. Claus Gittinger <cg@exept.de> parents: 3182 diff changeset	5754	"Modified: / 18.2.2000 / 11:20:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5755	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5756
4460 c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5757	dropMessage:dropTypeSymbol data:dropValue position:dropPosition handle:dropHandle
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5758	"a drop from some other window (X: DND or Win32 drag&drop).
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5759	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	5760
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5761	\|dropObjects\|
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5762
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5763	(dropTypeSymbol == WindowEvent dropType_file
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5764	or:[dropTypeSymbol == WindowEvent dropType_directory]) ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5765	dropObjects := Array with:(DropObject newFile:dropValue)
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5766	] ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5767	dropTypeSymbol == WindowEvent dropType_files ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5768	dropObjects := (dropValue collect:[:fn \| DropObject newFile:fn])
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5769	] ifFalse:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5770	dropTypeSymbol == WindowEvent dropType_text ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5771	dropObjects := Array with:(DropObject newText:dropValue)
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5772	] ifFalse:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5773	dropObjects := Array with:(DropObject new:dropValue)
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5774	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5775	]
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5776	].
934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5777
4460 c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5778	"/ Transcript showCR:'Drop:'.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5779	"/ Transcript show:' View:'; showCR:self.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5780	"/ Transcript show:' Position:'; showCR:dropPosition.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5781	"/ Transcript show:' Data:'; showCR:dropObjects.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5782
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5783	self alienDrop:dropObjects position:dropPosition.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5784	device dragFinish:dropHandle.
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	5785
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5786	"Modified: / 13-10-2006 / 10:10:23 / cg"
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5787	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5788
135 cf8e46015072 . claus parents: diff changeset	5789	exposeX:x y:y width:w height:h
cf8e46015072 . claus parents: diff changeset	5790	"a low level redraw event from device
cf8e46015072 . claus parents: diff changeset	5791	- let subclass handle the redraw and take care of edges here"
cf8e46015072 . claus parents: diff changeset	5792
3340 f810ebc6d836 preserve current paint when drawing edges martin parents: 3327 diff changeset	5793	\|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	5794
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5795	shown ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5796	^ self
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5797	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	5798
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5799	nw := dw := w.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5800	nh := dh := h.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5801	nx := dx := x.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5802	ny := dy := y.
135 cf8e46015072 . claus parents: diff changeset	5803
cf8e46015072 . claus parents: diff changeset	5804	anyEdge := false.
cf8e46015072 . claus parents: diff changeset	5805
cf8e46015072 . claus parents: diff changeset	5806	"
cf8e46015072 . claus parents: diff changeset	5807	check if there is a need to draw an edge (i.e. if margin is hit)
cf8e46015072 . claus parents: diff changeset	5808	"
cf8e46015072 . claus parents: diff changeset	5809	(margin ~~ 0) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5810	leftEdge := false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5811	topEdge := false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5812	rightEdge := false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5813	botEdge := false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5814	transformation notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5815	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5816	need device coordinates for this test
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5817	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5818	nx := transformation applyToX:nx.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5819	ny := transformation applyToY:ny.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5820	nw := transformation applyScaleX:nw.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5821	nh := transformation applyScaleY:nh.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5822	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5823	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5824	adjust expose rectangle, to exclude the margin.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5825	Care for rounding errors ...
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5826	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5827	(nx isMemberOf:SmallInteger) ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5828	old := nx.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5829	nx := nx truncated.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5830	nw := nw + (nx - old).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5831	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5832	(ny isMemberOf:SmallInteger) ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5833	old := ny.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5834	ny := ny truncated.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5835	nh := nh + (ny - old).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5836	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5837	(nw isMemberOf:SmallInteger) ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5838	nw := nw truncated + 1
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5839	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5840	(nh isMemberOf:SmallInteger) ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5841	nh := nh truncated + 1
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5842	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5843
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5844	dx := nx.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5845	dy := ny.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5846	dw := nw.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5847	dh := nh.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5848
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5849	(nx < margin) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5850	old := nx.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5851	nx := margin.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5852	nw := nw - (nx - old).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5853	leftEdge := anyEdge := true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5854	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5855	((nx + nw - 1) >= (width - margin)) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5856	nw := (width - margin - nx).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5857	rightEdge := anyEdge := true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5858	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5859	(ny < margin) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5860	old := ny.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5861	ny := margin.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5862	nh := nh - (ny - old).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5863	topEdge := anyEdge := true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5864	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5865	((ny + nh - 1) >= (height - margin)) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5866	nh := (height - margin - ny).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5867	botEdge := anyEdge := true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5868	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5869	transformation notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5870	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5871	need logical coordinates for redraw
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5872	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5873	nx := transformation applyInverseToX:nx.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5874	ny := transformation applyInverseToY:ny.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5875	nw := transformation applyInverseScaleX:nw.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5876	nh := transformation applyInverseScaleY:nh.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5877	].
135 cf8e46015072 . claus parents: diff changeset	5878	].
cf8e46015072 . claus parents: diff changeset	5879
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	5880	(nw > 0 and:[nh > 0]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5881	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5882	redraw inside area
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5883	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5884	self clippingRectangle:(Rectangle left:nx top:ny width:nw height:nh).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5885
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5886	self redrawX:nx y:ny width:nw height:nh.
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	5887	].
135 cf8e46015072 . claus parents: diff changeset	5888
cf8e46015072 . claus parents: diff changeset	5889	"
cf8e46015072 . claus parents: diff changeset	5890	redraw edge(s)
cf8e46015072 . claus parents: diff changeset	5891	"
cf8e46015072 . claus parents: diff changeset	5892	anyEdge ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5893	self deviceClippingRectangle:nil.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5894	oldPaint := paint.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5895	border notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5896	border displayOn:self forDisplayBox:(Rectangle left:0 top:0 width:width height:height).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5897	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5898	(topEdge and:[leftEdge and:[botEdge and:[rightEdge]]]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5899	self drawEdges
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5900	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5901	topEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5902	self drawTopEdge
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5903	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5904	leftEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5905	self drawLeftEdge
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5906	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5907	botEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5908	self drawBottomEdge
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5909	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5910	rightEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5911	self drawRightEdge
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5912	]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5913	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5914	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5915	self paint:oldPaint.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5916	].
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5917	self deviceClippingRectangle:innerClipRect.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5918
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5919	"Modified: / 25.5.1999 / 14:57:38 / cg"
135 cf8e46015072 . claus parents: diff changeset	5920	!
cf8e46015072 . claus parents: diff changeset	5921
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5922	focusIn
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5923	"got keyboard focus (via the window manager).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5924	Nothing done here"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5925
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5926	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5927
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5928	focusOut
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5929	"lost keyboard focus (via the window manager).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5930	Nothing done here"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5931	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5932
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5933	hasKeyboardFocus:aBoolean
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5934	"notification from the windowGroup that I got the keyboardFocus."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5935
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5936	delegate notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	5937	delegate perform:#hasKeyboardFocus: with:aBoolean ifNotUnderstood:nil
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	5938	].
140 0db355079dc4 . claus parents: 138 diff changeset	5939	^ self
0db355079dc4 . claus parents: 138 diff changeset	5940	!
0db355079dc4 . claus parents: 138 diff changeset	5941
0db355079dc4 . claus parents: 138 diff changeset	5942	keyPress:key x:x y:y
0db355079dc4 . claus parents: 138 diff changeset	5943	"a key has been pressed. If there are components,
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5944	pass it to the corresponding one.
140 0db355079dc4 . claus parents: 138 diff changeset	5945	Otherwise, forward it to the superview, if there is any."
0db355079dc4 . claus parents: 138 diff changeset	5946
510 c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	5947	<resource: #keyboard ( #Menu ) >
c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	5948
3247 d6e631975bd1 forward Menu-key (CMD-Z) to focusView if there is one. Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	5949	\|focusView\|
d6e631975bd1 forward Menu-key (CMD-Z) to focusView if there is one. Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	5950
140 0db355079dc4 . claus parents: 138 diff changeset	5951	components notNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5952	components notNil ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5953	self componentsContainingX:x y:y do:[:comp :cx :cy \|
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5954	comp keyPress:key x:cx y:cy.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5955	^ self
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5956	]
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5957	].
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5958	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5959
494 cc7765901744 checkin from browser Claus Gittinger <cg@exept.de> parents: 490 diff changeset	5960	key == #Menu ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5961	((focusView := self windowGroup focusView) notNil
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5962	and:[focusView ~~ self])
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5963	ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5964	"/ forward to the focusView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5965	focusView keyPress:key x:-1 y:-1.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5966	^ self
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5967	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5968	^ self activateMenu.
135 cf8e46015072 . claus parents: diff changeset	5969	].
cf8e46015072 . claus parents: diff changeset	5970
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5971	x isNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5972	"/ already redelegated, but nowhere handled
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5973	superView notNil ifTrue:[
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5974	superView keyPress:key x:nil y:nil.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5975	].
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5976	^ self
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5977	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5978
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	5979	superView notNil ifTrue:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5980	superView
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5981	dispatchEvent:#keyPress:x:y:
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5982	arguments:(Array with:key with:0 with:0)
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5983
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5984	"/ WindowEvent
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5985	"/ sendEvent:#keyPress:x:y:
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5986	"/ arguments:(Array with:key with:0 with:0)
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5987	"/ view:superView
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	5988	] ifFalse:[
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	5989	super keyPress:key x:x y:y
135 cf8e46015072 . claus parents: diff changeset	5990	]
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	5991
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	5992	"Modified: / 20.5.1998 / 22:55:08 / cg"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5993	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5994
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5995	keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5996	"a key has been released. If there are components,
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5997	pass it to the corresponding one.
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5998	Otherwise, do whatever my superclass would do."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5999
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6000	components notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6001	components notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6002	self componentsContainingX:x y:y do:[:comp :cx :cy \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6003	comp keyRelease:key x:cx y:cy.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6004	^ self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6005	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6006	].
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6007	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6008
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6009	super keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6010
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6011	"Modified: 8.5.1996 / 23:44:36 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6012	"Created: 8.5.1996 / 23:45:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	6013	!
cf8e46015072 . claus parents: diff changeset	6014
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6015	mapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6016	"the view has been mapped (by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6017	action - i.e. window manager de-iconified me)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6018
5082 3b3aaba11664 only send visibility-change if there really is one when mapped Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	6019	\|shownBefore\|
3b3aaba11664 only send visibility-change if there really is one when mapped Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	6020
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6021	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6022	the old code was:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6023
5662 de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6024	realized := true.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6025	shown := true.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6026	...
269 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	this created a race condition, if the view was
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6029	realized and shortly after unrealized - before the mapped event
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6030	arrived. This lead to realized being set to true even thought the
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6031	view was not.
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6032	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	6033	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6034
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6035	realized ifTrue:[
5662 de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6036	shownBefore := shown.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6037
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6038	"/ currently, the 'shown ifFalse:' optimization is
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6039	"/ not ok, since 'shown' is also modified by visibilityChanges.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6040	"/ Also, when remapped, X11 only sends a mapped event for the topView.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6041	"/ Therefore, synthetically generate those #superViewMapped messages
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6042	"/ in any case.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6043
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6044	shown := true.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6045	"
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6046	backed views will not get expose events - have
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6047	to force a redraw here to get things drawn into
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6048	backing store.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6049	"
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6050	backed ifTrue:[
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6051	self redrawX:0 y:0 width:width height:height
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6052	].
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6053
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6054	"/ tell my subViews ...
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6055	subViews notNil ifTrue:[
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6056	subViews do:[:v \| v mapped
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	6057	"/ v shown ifFalse:[
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	6058	"/ v mapped
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	6059	"/ ]
5662 de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6060	]
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6061	].
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6062	shownBefore ~~ true ifTrue:[
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6063	self changed:#visibility.
de04a157382d changed: #mapped Claus Gittinger <cg@exept.de> parents: 5654 diff changeset	6064	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6065	]
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6066
5667 c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6067	"Modified: / 09-12-2010 / 18:12:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6068	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6069
2733 5af2417bc450 pass x/y with mouseWheel event Claus Gittinger <cg@exept.de> parents: 2727 diff changeset	6070	mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime
2701 ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	6071	"the mouseWheel was turned - handle as a scroll operation.
ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	6072	Specialized application windows may redefine this for any other
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6073	operation.
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6074	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	6075	(but never too much);
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6076	if shift is pressed, always scroll a single scroll-step;
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6077	if ctrl is pressed, always scroll one page."
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6078
5130 0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6079	\|pageScroll amountToScroll zoomInOrOut sensor\|
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6080
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	6081	sensor := self sensor.
5130 0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6082
0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6083	UserPreferences current allowMouseWheelZoom ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6084	zoomInOrOut := sensor ctrlDown.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6085	zoomInOrOut ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6086	self mouseWheelZoom:amount.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6087	^ self.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6088	].
5130 0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6089	].
0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6090
5132 b1161f2c78ca * empty log message * Claus Gittinger <cg@exept.de> parents: 5130 diff changeset	6091	pageScroll := sensor shiftDown.
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6092
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6093	pageScroll ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6094	amountToScroll := self verticalScrollStep.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6095	sensor shiftDown ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6096	amountToScroll := self scaleMouseWheelScrollAmount:amountToScroll.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6097	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6098	].
2701 ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	6099
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6100	amount > 0 ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6101	pageScroll ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6102	self pageUp
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6103	] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6104	self scrollUp:amountToScroll
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6105	]
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6106	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6107	pageScroll ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6108	self pageDown
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6109	] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6110	self scrollDown:amountToScroll
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6111	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6112	].
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6113
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6114	"Modified: / 21.5.1999 / 19:58:42 / cg"
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6115	!
01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6116
5130 0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6117	mouseWheelZoom:amount
5132 b1161f2c78ca * empty log message * Claus Gittinger <cg@exept.de> parents: 5130 diff changeset	6118	"CTRL-wheel action.
b1161f2c78ca * empty log message * Claus Gittinger <cg@exept.de> parents: 5130 diff changeset	6119	ignored here - redefined in views which can zoom"
b1161f2c78ca * empty log message * Claus Gittinger <cg@exept.de> parents: 5130 diff changeset	6120
5133 6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	6121	"/ self changeScaleForMouseWheelZoom:amount
5130 0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6122	!
0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6123
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6124	pointerEnter:state x:x y:y
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6125	"mouse pointer entered - request the keyboard focus (sometimes)"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6126
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6127	\|doRequestFocus\|
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6128
4968 63f18801bab8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4966 diff changeset	6129	"/ first ask my flags if its enforced or forbidden
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6130	self requestFocusOnPointerEnter ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6131	doRequestFocus := true
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6132	] ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6133	self doNotRequestFocusOnPointerEnter ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6134	doRequestFocus := false
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6135	] ifFalse:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6136	"/ then look for the settings.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6137	doRequestFocus := self wantsFocusWithPointerEnter
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6138	]
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6139	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6140
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6141	doRequestFocus ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6142	self requestFocus.
4968 63f18801bab8 * empty log message * Claus Gittinger <cg@exept.de> parents: 4966 diff changeset	6143	].
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6144	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6145
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6146	reparented
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6147	"the view has changed its parent by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6148	action - i.e. window manager has added a frame.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6149	nothing done here"
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	^ self
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6154	saveAndTerminate
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6155	"window manager wants me to save and go away;
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6156	- notice, that not all window managers are nice enough to
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6157	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6158	Can be redefined in subclasses to do whatever is required
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6159	to prepare for restart."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6160
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6161	self closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6162
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6163	"Modified: / 3.8.1998 / 19:51:26 / cg"
269 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
4674 5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6166	scaleMouseWheelScrollAmount:amountToScroll
4739 a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6167	\|hCont factor innerHeight\|
a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6168
a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6169	"/ test whether innerHeight == 0
4855 1a47c76fa152 comment Stefan Vogel <sv@exept.de> parents: 4853 diff changeset	6170	"/ could happen if the view is resized to 0 (panel)
4739 a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6171	innerHeight := self innerHeight.
a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6172	innerHeight > 0 ifFalse:[ ^ 1 ].
4674 5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6173
5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6174	hCont := self heightOfContents.
4739 a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6175	hCont > (innerHeight * 3) ifTrue:[
4907 9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	6176	factor := (hCont // innerHeight) min:4.
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	6177	^ amountToScroll * factor.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6178	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6179	^ amountToScroll
4674 5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6180	!
5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6181
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6182	sizeChanged:how
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6183	"tell subviews if I change size.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6184	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	6185	in which subviews are notified (possibly reducing redraw activity)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6186
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6187	\|subViews\|
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6188
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6189	(subViews := self subViews) notNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6190	(how isNil "false"
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6191	or:[how == #smaller]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6192	subViews do:[:view \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6193	view notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6194	view containerChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6195	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6196	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6197	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6198	"doing it reverse speeds up resizing - usually subviews
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6199	are created from top-left to bottom-right; therefore
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6200	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	6201	this avoids multiple redraws of subviews"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6202
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6203	subViews reverseDo:[:view \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6204	view notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6205	view containerChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6206	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6207	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6208	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6209	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6210
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6211	components notNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6212	(how isNil "false"
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6213	or:[how == #smaller]) ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6214	components do:[:view \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6215	view containerChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6216	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6217	] ifFalse:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6218	"doing it reverse speeds up resizing - usually subviews
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6219	are created from top-left to bottom-right; therefore
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6220	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	6221	this avoids multiple redraws of subviews"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6222
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6223	components reverseDo:[:view \|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6224	view containerChangedSize
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6225	]
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6226	]
135 cf8e46015072 . claus parents: diff changeset	6227	].
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6228
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6229	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	6230
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6231	superView notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6232	superView subViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6233	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6234
2084 e997f6ea54c2 also pass down #larger to sizeCanged: method. Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	6235	"Modified: / 2.4.1998 / 13:59:59 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6236	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6237
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6238	subViewChangedSize
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 312 diff changeset	6239	"some subview has changed its size; we are not interested
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6240	in that here, but some geometry managers redefine this, to reorganize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6241	components if that happens."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6242
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6243	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6244
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6245	"Created: 22.9.1995 / 14:44:59 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6246	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6247
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6248	terminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6249	"window manager wants me to go away;
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6250	- notice, that not all window managers are nice enough to
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6251	send this event, but simply destroy the view instead.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6252	Can be redefined in subclasses to do whatever cleanup is
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6253	required."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6254
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6255	self closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6256
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6257	"Modified: / 3.8.1998 / 19:51:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6258	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6259
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6260	unmapped
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6261	"the view has been unmapped
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6262	(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	6263	or due to unmapping of my parentView)."
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6264
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6265	"/ 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	6266	"/ my subviews (they remember this in the shown instVar)
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6267
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	6268	"/ currently, the 'shown ifTrue:' optimization is
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6269	"/ not ok, since 'shown' is also modified by visibilityChanges.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6270	"/ 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	6271	"/ Therefore, synthetically generate those #superViewUnmapped messages
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	6272	"/ in any case.
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6273	\|wdgr\|
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	6274
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6275	shown ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6276	shown := false.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6277	self changed:#visibility.
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6278	].
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6279	(wdgr := self windowGroup) notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6280	wdgr focusView == self ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6281	wdgr focusViewUnmapped.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6282	].
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6283	].
a17606a09947 focus handling ca parents: 4734 diff changeset	6284
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6285	subViews notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6286	subViews do:[:v \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6287	v containerUnmapped
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6288	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6289	self changed:#visibility.
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6290	]
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6291
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6292	"Modified: 25.2.1997 / 22:40:52 / cg"
135 cf8e46015072 . claus parents: diff changeset	6293	!
cf8e46015072 . claus parents: diff changeset	6294
cf8e46015072 . claus parents: diff changeset	6295	visibilityChange:how
cf8e46015072 . claus parents: diff changeset	6296	"the visibility of the view has changed (by some outside
cf8e46015072 . claus parents: diff changeset	6297	action - i.e. window manager rearranged things).
5029 b9b004d17044 do not realize, if visibilityChannel says that the view should be invisible Stefan Vogel <sv@exept.de> parents: 5026 diff changeset	6298	Using this knowledge avoids useless redraw in obscured views."
135 cf8e46015072 . claus parents: diff changeset	6299
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6300	\|shownBefore\|
a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6301
a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6302	shownBefore := shown.
a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6303
135 cf8e46015072 . claus parents: diff changeset	6304	how == #fullyObscured ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6305	shown := false
135 cf8e46015072 . claus parents: diff changeset	6306	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6307	shown := true.
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6308	].
a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6309	shownBefore ~~ shown ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6310	self changed:#visibility.
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6311	].
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6312	!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6313
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6314	visibilityStateChanged
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6315	"this is called when our visibilityChannel changes"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6316
3410 f345f5f8e704 Undo prev change. Stefan Vogel <sv@exept.de> parents: 3409 diff changeset	6317	self isVisible:visibilityChannel value
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6318	!
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6319
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6320	win32NativeScroll:scrollCode position:newPosition
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6321	"this is generated by a native scrollBar widget.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6322	We should never arrive here, as its only supposed to be
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6323	sent to scrollableViews..."
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6324
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6325	scrollCode == #SB_LINEDOWN ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6326	self scrollDown.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6327	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6328	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6329	scrollCode == #SB_LINEUP ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6330	self scrollUp.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6331	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6332	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6333	scrollCode == #SB_LINELEFT ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6334	self scrollLeft.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6335	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6336	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6337	scrollCode == #SB_LINERIGHT ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6338	self scrollRight.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6339	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6340	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6341	scrollCode == #SB_PAGEDOWN ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6342	self pageDown.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6343	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6344	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6345	scrollCode == #SB_PAGEUP ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6346	self pageUp.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6347	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6348	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6349	scrollCode == #SB_PAGELEFT ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6350	self pageLeft.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6351	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6352	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6353	scrollCode == #SB_PAGERIGHT ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6354	self pageRight.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6355	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6356	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6357	scrollCode == #SB_THUMBPOSITIONVERTICAL ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6358	self scrollVerticalToPercent:newPosition.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6359	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6360	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6361	scrollCode == #SB_THUMBPOSITIONHORIZONTAL ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6362	self scrollHorizontalToPercent:newPosition.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6363	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6364	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6365	scrollCode == #SB_THUMBTRACKVERTICAL ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6366	self scrollVerticalToPercent:newPosition.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6367	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6368	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6369	scrollCode == #SB_THUMBTRACKHORIZONTAL ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6370	self scrollHorizontalToPercent:newPosition.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6371	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6372	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6373
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6374	scrollCode == #SB_ENDSCROLL ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6375	^ self.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6376	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6377	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6378
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6379	!SimpleView methodsFor:'event simulation'!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6380
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6381	pushEvent:aSelector
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6382	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6383	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6384	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6385	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	6386
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6387	^ self pushEvent:aSelector withArguments:#()
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6388
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6389	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6390	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6391
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6392	v := View new openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6393	v fill:Color red.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6394	v pushEvent:#redraw
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6395	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6396
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6397	"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	6398	!
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6399
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6400	pushEvent:aSelector with:arg
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6401	"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	6402	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	6403	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	6404	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	6405
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6406	^ self pushEvent:aSelector withArguments:(Array with:arg)
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6407
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6408	"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	6409	!
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6410
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6411	pushEvent:aSelector with:arg1 with:arg2
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6412	"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	6413	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	6414	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	6415	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	6416
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6417	^ 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	6418
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6419	"Created: / 10.6.1998 / 17:27:41 / cg"
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6420	!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6421
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6422	pushEvent:aSelector withArguments:args
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6423	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6424	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6425	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6426	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	6427
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	6428	self sensor pushUserEvent:aSelector for:self withArguments:args
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6429
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6430	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6431	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6432
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6433	v := (Button label:'hello') openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6434	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6435	v pushEvent:#buttonPress:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6436	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6437	v pushEvent:#buttonRelease:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6438	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6439
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6440	"Modified: / 10.6.1998 / 17:28:16 / cg"
4347 528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6441	!
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6442
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6443	startButtonLongPressedHandlerProcess
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6444	"start a process, which simulates a right-button press if the left-button
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6445	has been pressed, but not released, and stayed pressed for a while.
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6446	This is very handy for single-button-mice, as used with the MAC"
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6447
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6448	\|p\|
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6449
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6450	self stopButtonLongPressedHandlerProcess.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6451	p :=
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6452	[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6453	Delay waitForSeconds:0.7.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6454	self sensor leftButtonPressed ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6455	"/ simulate a right-button press
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6456	self buttonPress:2 x:0 y:0
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6457	]
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6458	] newProcess.
4347 528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6459
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6460	device buttonLongPressedHandlerProcess:p.
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6461	p resume.
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6462	!
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6463
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6464	stopButtonLongPressedHandlerProcess
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6465	"stop any long-button-pressed process"
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6466
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6467	\|p\|
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6468
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6469	(p := device buttonLongPressedHandlerProcess) notNil ifTrue:[
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6470	"/ Transcript showCR:'stop'.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6471	device buttonLongPressedHandlerProcess:nil.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6472	p terminate.
4347 528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6473	].
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6474	! !
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6475
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6476	!SimpleView methodsFor:'focus handling'!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6477
3150 547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	6478	canTab
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6479	"returns true if the widget is tabable"
49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6480
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6481	"/ ^ canTab == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6482	^ flagBits bitTest:FlagCanTab
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6483	!
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6484
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6485	canTab:aBoolean
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6486	"set widget tabable or not"
49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6487
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6488	"/ canTab := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6489	aBoolean ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6490	flagBits := flagBits bitOr:FlagCanTab
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6491	] ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6492	flagBits := flagBits bitClear:FlagCanTab
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	6493	].
3150 547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	6494	!
547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	6495
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6496	doNotRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6497	"returns true if widget SHOULD NOT request the focus on pointer enter;
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6498	if false is returned, the behavior depends upon the settings."
49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6499
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6500	^ flagBits bitTest:FlagDoNotRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6501	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6502
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6503	doNotRequestFocusOnPointerEnter:aBoolean
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6504	"if true, setup that the widget SHOULD NOT request the focus on pointer enter;
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6505	if false, the behavior depends upon the settings."
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6506
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6507	aBoolean ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6508	flagBits := flagBits bitOr:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6509	] ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6510	flagBits := flagBits bitClear:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6511	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6512	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6513
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6514	focusNext
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6515	"get next focus view to self
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6516	Skip invisible, disabled or widgets the extent is to small"
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6517
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6518	shown ifFalse:[^ nil].
a17606a09947 focus handling ca parents: 4734 diff changeset	6519
a17606a09947 focus handling ca parents: 4734 diff changeset	6520	^ self focusNextForWhich:[:v \| v shown]
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6521	!
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6522
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6523	focusNextChildAfter:aChildView
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6524	"get the next focus view after aChildView in mySelf or nil,
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6525	if there is none.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6526	Skip invisible or disabled widgets"
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6527
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6528	\|viewInSubView index subviewsInFocusOrder\|
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6529
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6530	shown ifFalse:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6531	subViews isNil ifTrue:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6532	subviewsInFocusOrder := self subviewsInFocusOrder.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6533
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6534	index := subviewsInFocusOrder identityIndexOf:aChildView.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6535	index == 0 ifTrue:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6536
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6537	subviewsInFocusOrder from:(index + 1) do:[:eachChildAfterTheOne \|
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6538	eachChildAfterTheOne shown ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6539	(eachChildAfterTheOne canTab and:[eachChildAfterTheOne enabled]) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6540	^ eachChildAfterTheOne
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6541	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6542
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6543	(viewInSubView := eachChildAfterTheOne focusNext) notNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6544	^ viewInSubView
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6545	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6546	].
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6547	].
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6548	^ nil
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6549	!
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6550
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6551	focusNextForWhich:aCondition
a17606a09947 focus handling ca parents: 4734 diff changeset	6552	"get next focus view to self
a17606a09947 focus handling ca parents: 4734 diff changeset	6553	Skip invisible, disabled or widgets the extent is to small"
a17606a09947 focus handling ca parents: 4734 diff changeset	6554
a17606a09947 focus handling ca parents: 4734 diff changeset	6555	\|viewInSubView\|
a17606a09947 focus handling ca parents: 4734 diff changeset	6556
a17606a09947 focus handling ca parents: 4734 diff changeset	6557	self subviewsInFocusOrder do:[:aSubView\|
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6558	aSubView shown ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6559	(aSubView canTab
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6560	and:[aSubView enabled
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6561	and:[aCondition value:aSubView]]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6562	^ aSubView
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6563	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6564
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6565	(viewInSubView := aSubView focusNextForWhich:aCondition) notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6566	^ viewInSubView
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6567	]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	6568	]
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6569	].
a17606a09947 focus handling ca parents: 4734 diff changeset	6570	^ nil
a17606a09947 focus handling ca parents: 4734 diff changeset	6571	!
a17606a09947 focus handling ca parents: 4734 diff changeset	6572
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6573	focusPrevious
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6574	"get previous focus view to self
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6575	Skip invisible & disabled widgets."
49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	6576
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6577	\|viewInSubView\|
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6578
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6579	shown ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6580	self subviewsInFocusOrder reverseDo:[:aSubView\|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6581	aSubView shown ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6582	viewInSubView := aSubView focusPrevious.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6583
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6584	viewInSubView notNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6585	^ viewInSubView
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6586	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6587	(aSubView canTab and:[aSubView enabled]) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6588	^ aSubView
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6589	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6590	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6591	]
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6592	].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6593	^ nil
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6594	!
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6595
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6596	focusPreviousChildBefore:aChildView
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6597	"get the previous focus view before aChildView in mySelf or nil, if there is none.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6598	Skip invisible or disabled widgets"
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6599
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6600	\|viewInSubView index subviewsInFocusOrder\|
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6601
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6602	shown ifFalse:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6603	subViews isNil ifTrue:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6604	subviewsInFocusOrder := self subviewsInFocusOrder.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6605
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6606	index := subviewsInFocusOrder identityIndexOf:aChildView.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6607	index == 0 ifTrue:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6608
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6609	subviewsInFocusOrder from:1 to:(index - 1) reverseDo:[:eachChildBeforeTheOne \|
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6610	eachChildBeforeTheOne shown ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6611	(viewInSubView := eachChildBeforeTheOne focusPrevious) notNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6612	^ viewInSubView
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6613	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6614
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6615	(eachChildBeforeTheOne canTab and:[eachChildBeforeTheOne enabled]) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6616	^ eachChildBeforeTheOne
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6617	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6618	].
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6619	].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6620	"/ the code below allows for a notebooks tab-list to be reached
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6621	(self canTab and:[self enabled]) ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6622	^ self
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6623	].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6624
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6625	^ nil
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6626	!
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	6627
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6628	requestDoNotFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6629	"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	6630	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	6631	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6632	^ flagBits bitTest:FlagDoNotRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6633	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6634
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6635	requestDoNotFocusOnPointerEnter:aBoolean
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6636	"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	6637	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	6638	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6639
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6640	aBoolean ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6641	flagBits := flagBits bitOr:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6642	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6643	flagBits := flagBits bitClear:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6644	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6645	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6646
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6647	requestFocus
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6648	"request focus from my windowGroup;
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6649	typically, this is invoked when the mouse pointer enters a
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6650	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	6651	(it will be ignored, if an explicit focus-change is currently
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6652	active - i.e. if the user tabbed into a widget)"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6653
5665 f901e164a7ba changed: #requestFocus Claus Gittinger <cg@exept.de> parents: 5664 diff changeset	6654	"/ Transcript show:'take: '; showCR:self.
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6655	windowGroup notNil ifTrue:[
5664 4546b913860e comment/format in: #mapped Claus Gittinger <cg@exept.de> parents: 5663 diff changeset	6656	^ windowGroup focusRequestFrom:self
4546b913860e comment/format in: #mapped Claus Gittinger <cg@exept.de> parents: 5663 diff changeset	6657	].
5665 f901e164a7ba changed: #requestFocus Claus Gittinger <cg@exept.de> parents: 5664 diff changeset	6658	"/ Transcript show:'oops: '; showCR:self.
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6659	^ true
5664 4546b913860e comment/format in: #mapped Claus Gittinger <cg@exept.de> parents: 5663 diff changeset	6660
5665 f901e164a7ba changed: #requestFocus Claus Gittinger <cg@exept.de> parents: 5664 diff changeset	6661	"Modified: / 09-12-2010 / 14:33:40 / cg"
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6662	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6663
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6664	requestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6665	"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	6666	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	6667	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6668	^ flagBits bitTest:FlagRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6669	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6670
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6671	requestFocusOnPointerEnter:aBoolean
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6672	"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	6673	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	6674	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6675
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6676	aBoolean ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6677	flagBits := flagBits bitOr:FlagRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6678	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6679	flagBits := flagBits bitClear:FlagRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6680	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6681	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6682
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6683	showFocus:explicit
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6684	"highlight myself somehow to tell user that I have the focus.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6685	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	6686	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	6687	Only change my border, if this is an explicit focusChange."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6688
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	6689	\|delta clrId bd\|
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6690
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6691	explicit ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6692	(drawableId notNil
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6693	and:[superView notNil
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6694	and:[styleSheet notNil]]) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6695	(styleSheet at:#'focus.showBorder' default:true) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6696	(device supportsWindowBorder:(bd := DefaultFocusBorderWidth)) ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6697	(device supportsWindowBorder:(bd := 1)) ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6698	bd := 0.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6699	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6700	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6701	delta := bd - self borderWidth.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6702	delta ~~ 0 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6703	(left == 0 or:[top == 0]) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6704	device resizeWindow:drawableId width:width-delta-delta height:height-delta-delta.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6705	] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6706	device moveWindow:drawableId x:left-delta y:top-delta.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6707	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6708	device setWindowBorderWidth:bd in:drawableId.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6709	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6710
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6711	clrId := (DefaultFocusColor onDevice:device) colorId.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6712	clrId isNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6713	clrId := device blackpixel
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6714	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6715	device setWindowBorderColor:clrId in:drawableId.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6716	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6717	]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6718	] ifFalse:[
2560 a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	6719	"/ superView notNil ifTrue:[
a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	6720	"/ superView showFocus:explicit
a19faec26261 showFocus/showNoFocus Claus Gittinger <cg@exept.de> parents: 2559 diff changeset	6721	"/ ]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6722	]
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6723
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6724	"Modified: / 17.9.1998 / 15:08:34 / cg"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6725	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6726
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6727	showNoFocus:explicit
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6728	"undo the effect of showFocus.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6729	Explicit tells if the focus came via focusStepping (i.e. tabbing)
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6730	or via the window manager (i.e. pointer entering).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6731	Only change my border, if this is an explicit focusChange."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6732
2907 901ffdc575a8 ask device if it supports borders Claus Gittinger <cg@exept.de> parents: 2886 diff changeset	6733	\|delta bd\|
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6734
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6735	explicit ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6736	(drawableId notNil and:[superView notNil]) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6737	(styleSheet at:#'focus.showBorder' default:true) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6738	(device supportsWindowBorder:(bd := self borderWidth)) ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6739	(device supportsWindowBorder:(bd := 1)) ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6740	bd := 0.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6741	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6742	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6743	delta := DefaultFocusBorderWidth - bd.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6744	delta ~~ 0 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6745	device setWindowBorderWidth:bd in:drawableId.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6746	device moveWindow:drawableId x:left y:top.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6747	device resizeWindow:drawableId width:width height:height.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6748	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6749	self setBorderColor.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6750	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6751	]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6752	]
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6753
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6754	"Modified: / 17.9.1998 / 15:08:02 / cg"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6755	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6756
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6757	subviewsInFocusOrder
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6758	^ subViews ? #()
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6759	!
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	6760
4425 7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	6761	takeFocus
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	6762	"Unconditionally take the focus from my windowGroup"
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	6763
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	6764	windowGroup notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	6765	windowGroup focusView:self byTab:nil "/false.
4425 7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	6766	].
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	6767	!
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	6768
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6769	takeFocusWhenMapped
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6770	^ flagBits bitTest:FlagTakeFocusWhenMapped
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6771
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6772	"Created: / 09-12-2010 / 10:34:30 / cg"
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6773	!
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6774
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6775	takeFocusWhenMapped:aBoolean
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6776	aBoolean ifTrue:[
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6777	flagBits := flagBits bitOr:FlagTakeFocusWhenMapped
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6778	] ifFalse:[
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6779	flagBits := flagBits bitClear:FlagTakeFocusWhenMapped
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6780	].
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6781
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6782	"Created: / 09-12-2010 / 10:34:11 / cg"
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6783	!
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	6784
5667 c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6785	topViewWasMapped
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6786	"invoked when my topView is mapped"
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6787
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6788	self isKeyboardConsumer ifTrue:[
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6789	self takeFocusWhenMapped ifTrue:[
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6790	self requestFocus
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6791	]
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6792	] ifFalse:[
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6793	subViews notNil ifTrue:[
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6794	subViews do:[:eachSubView \|
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6795	eachSubView topViewWasMapped
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6796	].
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6797	].
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6798	].
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6799
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6800	"Created: / 09-12-2010 / 18:11:51 / cg"
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6801	!
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6802
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6803	wantsFocusWithButtonPress
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6804	"views which do not like to take the keyboard focus
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6805	with buttonPress can do so by redefining this
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6806	to return false"
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6807
5654 3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	6808	"/ (self class == SimpleView) ifTrue:[
3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	6809	"/ "/ a pure filler/geometric layout view
3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	6810	"/ ^ false
3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	6811	"/ ].
3581 72e09769d372 do not take focus when disabled Claus Gittinger <cg@exept.de> parents: 3559 diff changeset	6812	^ self enabled
5654 3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	6813
3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	6814	"Modified: / 17-11-2010 / 16:07:01 / cg"
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6815	!
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6816
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6817	wantsFocusWithPointerEnter
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6818	"views which like to take the keyboard focus
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6819	when the pointer enters can do so by redefining this
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6820	to return true"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6821
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	6822	^ false
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6823	! !
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6824
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6825	!SimpleView methodsFor:'grabbing'!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6826
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6827	forceUngrabKeyboard
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6828	"force a keyboard ungrab - even if was not the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6829
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6830	device ungrabKeyboard.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6831
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6832	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6833
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6834	forceUngrabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6835	"force a pointer ungrab - even if was not the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6836
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6837	device ungrabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6838
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6839	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6840
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6841	grabKeyboard
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6842	"grab the keayboard - that is: report all keyboard events to myself,
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6843	even if the mouse moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6844	Returns true, if the grab was sucessfull (could fail, if some other
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6845	application has a grab - but thats very unlikely)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6846
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6847	^ device grabKeyboardInView:self.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6848	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6849
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6850	grabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6851	"grab the pointer - that is: report all motion events relative to
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6852	myself, even if moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6853	Returns true, if the grab was sucessfull (could fail, if some other
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6854	application has a grab - but thats very unlikely)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6855
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6856	^ self grabPointerWithCursor:nil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6857	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6858
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6859	grabPointerWithCursor:aCursorOrNil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6860	"grab the pointer - that is: report all motion events relative to
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6861	myself, even if moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6862	Show aCursor during the grab, if the cursor argument is not nil.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6863	Returns true, if the grab was sucessfull (could fail, if some other
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6864	application has a grab - but thats very unlikely)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6865
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6866
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6867	"/ (sensor := self sensor) notNil ifTrue:[
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6868	"/ "/ make certain all X events have been received
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6869	"/ device sync.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6870	"/ "/ now all events have been received.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6871	"/ "/ now, flush all pointer events
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6872	"/ sensor flushMotionEventsFor:nil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6873	"/ ].
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6874
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6875	aCursorOrNil notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6876	cursor := (aCursorOrNil onDevice:device).
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6877	^ device grabPointerInView:self withCursor:cursor
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6878	].
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6879	^ device grabPointerInView:self
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6880	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6881
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6882	ungrabKeyboard
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6883	"ungrab the keyboard - but only if I was the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6884
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6885	\|sensor\|
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6886
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6887	device activeKeyboardGrab == self ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6888	(sensor := self sensor) notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6889	"/ make certain all X events have been received
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6890	device sync.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6891	"/ now all events have been received.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6892	"/ now, flush all pointer events
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6893	sensor flushKeyboardFor:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6894	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6895	device ungrabKeyboard.
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6896	].
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6897
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6898	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6899
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6900	ungrabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6901	"ungrab the pointer - but only if I was the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6902
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6903	\|sensor\|
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6904
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6905	device activePointerGrab == self ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6906	(sensor := self sensor) notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6907	"/ make certain all X events have been received
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6908	device sync.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6909	"/ now all events have been received.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6910	"/ now, flush all pointer events
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6911	sensor flushMotionEventsFor:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6912	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	6913	device ungrabPointer.
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6914	]
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6915	! !
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6916
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6917	!SimpleView methodsFor:'informing others of changes'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6918
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6919	contentsChanged
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6920	"this one is sent, whenever contents changes size -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6921	tell dependents about the change (i.e. scrollers)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6922
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6923	self changed:#sizeOfContents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6924	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6925
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6926	noticeOfWindowClose
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6927	\|app\|
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6928
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6929	(app := self application) notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6930	app noticeOfWindowClose:self
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6931	].
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6932	!
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6933
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6934	noticeOfWindowOpen
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6935	\|app\|
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6936
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6937	(app := self application) notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	6938	app noticeOfWindowOpen:self
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6939	].
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6940	!
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	6941
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6942	originChanged:delta
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6943	"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	6944	tell dependents (i.e. scrollers) about this"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6945
3510 f8d3abbf10d5 * empty log message * frank parents: 3485 diff changeset	6946	(delta = (0@0)) ifTrue:[^ self].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6947	self changed:#originOfContents with:delta.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6948	"/ subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6949	"/ subViews do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6950	"/ aSubView pixelOrigin:((aSubView left @ aSubView top) - delta)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6951	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6952	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6953	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6954
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6955	originWillChange
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6956	"this one is sent, just before viewOrigin changes -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6957	gives subclasses a chance to catch scrolls easily
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6958	(for example to hide cursor before scroll)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6959
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6960	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6961	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6962
3165 b9de858a61b5 cantab Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	6963	!SimpleView methodsFor:'initialization & release'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6964
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6965	defaultControllerClass
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6966	^ nil "/ Controller
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6967	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6968
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	6969	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	6970	"return the default extent of my instances."
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	6971
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	6972	^ self class defaultExtent
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	6973
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	6974	"Created: 1.3.1996 / 19:20:46 / cg"
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	6975	"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	6976	!
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	6977
3662 faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	6978	defaultFont
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	6979	^ self class defaultFont
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	6980	!
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	6981
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6982	destroy
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6983	"unmap & destroy - make me invisible, destroy subviews then
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6984	make me unknown to the device"
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6985
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6986	realized ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6987	self unmap.
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6988	].
a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6989	shown ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6990	shown := false.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	6991	self changed:#visibility.
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6992	].
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6993
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6994	"/ controller notNil ifTrue:[
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6995	"/ controller release.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6996	"/ controller := nil.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6997	"/ ].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6998
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	6999	subViews notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7000	self destroySubViews.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7001	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7002	superView notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7003	superView removeSubView:self.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7004	superView := nil
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7005	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7006	super destroy.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7007
3709 7f3f08a3607d flush in #unmap Claus Gittinger <cg@exept.de> parents: 3708 diff changeset	7008	self release.
7f3f08a3607d flush in #unmap Claus Gittinger <cg@exept.de> parents: 3708 diff changeset	7009
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7010	"/ superView isNil ifTrue:[
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7011	"/ device flush
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7012	"/ ].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7013
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7014	controller notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7015	controller release.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7016	controller := nil.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7017	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7018
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7019	windowGroup notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7020	windowGroup removeView:self.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7021	windowGroup := nil
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7022	].
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7023
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7024	self noticeOfWindowClose.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7025	!
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7026
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7027	initEvents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7028	"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	7029	view events"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7030
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7031	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7032	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7033
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7034	initStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7035	"this method sets up all style dependent things"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7036
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7037	self initStyleSheet.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7038
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7039	viewBackground := DefaultViewBackgroundColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7040
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7041	DefaultLightColor notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7042	lightColor := DefaultLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7043	] ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7044	device hasGrayscales ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7045	(viewBackground isImageOrForm and:[viewBackground colorMap isNil]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7046	lightColor := viewBackground averageColor lightened.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7047	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7048	lightColor := viewBackground lightened.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7049	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7050	DefaultLightColor := lightColor.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7051	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7052	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7053	this seems strange: on B&W screens, we create the light color
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7054	darker than normal viewBackground (White) -
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7055	to make the boundary of the view visible
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7056	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7057	lightColor := Color gray:50
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7058	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7059	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7060	DefaultShadowColor notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7061	shadowColor := DefaultShadowColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7062	] ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7063	shadowColor := Black
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7064	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7065
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7066	((DefaultBorderWidth ? 1) ~= 0 and:[DefaultBorderColor notNil]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7067	self border:(SimpleBorder width:(DefaultBorderWidth ? 1) color:DefaultBorderColor)
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7068	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7069
3669 7f3fb4967f53 dont call defaultFont twice Michael Beyl <mb@exept.de> parents: 3662 diff changeset	7070	"/ font := self defaultFont. -- already done in #initialize
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	7071	font := font onDevice:device.
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	7072
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	7073	"Modified: 28.5.1996 / 21:13:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7074	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7075
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7076	initStyleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7077	"this method gets the styleSheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7078
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7079	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7080	when coming here the first time, we read the styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7081	and keep the values in fast class variables
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7082	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7083	StyleSheet isNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7084	DefaultStyle isNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7085	"/ the very-very first time (no styleSheet yet)
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7086	View setDefaultStyle.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7087	View defaultStyle:DefaultStyle.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7088	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7089	SimpleView updateAllStyleCaches
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7090	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7091
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7092	styleSheet := StyleSheet.
1005 03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	7093
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	7094	"Modified: 25.7.1996 / 22:00:06 / cg"
269 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	initialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7098	"initialize all state of the view - usually redefined in subclasses,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7099	but always doing a 'super initialize'. Each class should setup its
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7100	locals - and not forget the others.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7101	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	7102	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	7103	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	7104	(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	7105	leave the state and contents as-is)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7106
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7107	\|ext myClass controllerClass\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7108
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7109	flagBits := 0.
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7110
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7111	super initialize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7112
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	7113	font := self defaultFont onDevice:device.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7114
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7115	shown := realized := false.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7116	"/ hiddenOnRealize := false.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7117	"/ explicitExtent := false.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7118
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7119	"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	7120	initialize methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7121
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7122	myClass := self class.
5290 5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	7123	"/ name := myClass name "asString" asLowercaseFirst. - now lazy
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7124	resources := myClass classResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7125
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7126	level := margin := 0.
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	7127	self borderWidth:0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7128
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7129	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7130
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	7131	ext := self defaultExtent.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7132	left := top := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7133	width := ext x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7134	height := ext y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7135
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7136	"/ not needed
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7137	"/ self originChangedFlag:false extentChangedFlag:false cornerChangedFlag:false.
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7138
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7139	name isNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7140	name := self class name.
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7141	].
2084 e997f6ea54c2 also pass down #larger to sizeCanged: method. Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	7142	bitGravity := #NorthWest. "/ nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7143	viewGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7144
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7145	controllerClass := self defaultControllerClass.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7146	controllerClass notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7147	controller := controllerClass new.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7148	controller view:self.
3967 ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7149	].
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7150
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7151	self initializeMiddleButtonMenu.
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	7152
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	7153	"Modified: / 1.10.1998 / 14:31:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7154	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7155
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7156	initializeMiddleButtonMenu
3968 4bd1b2b090f9 comment Claus Gittinger <cg@exept.de> parents: 3967 diff changeset	7157	"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	7158	usually redefined in subclasses; default here is no menu.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7159	Notice, that static middleButtonmenus are a historic thing in ST/X;
3968 4bd1b2b090f9 comment Claus Gittinger <cg@exept.de> parents: 3967 diff changeset	7160	you may prefer to create the menu dynamically."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7161
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7162	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7163	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7164
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7165	prepareForReinit
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7166	super prepareForReinit.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7167	windowGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7168	windowGroup reinitialize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7169	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7170	!
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	reinitStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7173	"this method is called for a style change"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7174
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7175	\|t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7176
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7177	self initStyle.
3945 bdbc16f787dc systemColorChange on windows Claus Gittinger <cg@exept.de> parents: 3926 diff changeset	7178	(drawableId notNil and:[gcId notNil]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7179	"force a change"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7180	t := self borderWidth. self borderWidth:nil. self borderWidth:t.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7181	t := viewBackground. viewBackground := nil. self viewBackground:t.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7182	self clearView.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7183	self invalidate.
2357 29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	7184	].
29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	7185
29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	7186	"Modified: / 18.9.1998 / 21:15:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7187	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7188
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7189	reinitialize
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	7190	"this is called right after snapIn"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7191
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	7192	\|myController sv\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7193
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7194	"if I have already been reinited - return"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7195	drawableId notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7196	^ self
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7197	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7198
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7199	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7200	superView must be there, first
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7201	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7202	superView notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7203	(sv := superView view) id isNil ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7204	sv reinitialize
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7205	]
2452 0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	7206	].
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	7207
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	7208	"reinit cursor"
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	7209	self initCursor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7210
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7211	myController := controller.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7212	controller := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7213	self recreate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7214
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7215	"if I was mapped, do it again"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7216	realized ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7217	"only remap if I have a superview - otherwise, I might be
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7218	a hidden iconView or menu ..."
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7219	superView notNil ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7220	"/ shown ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7221	device
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7222	moveResizeWindow:drawableId x:left y:top width:width height:height;
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7223	mapWindow:drawableId
4907 9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	7224	"/ mapView:self id:drawableId iconified:false
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	7225	"/ atX:left y:top width:width height:height
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	7226	"/ minExtent:(self minExtent) maxExtent:(self maxExtent)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7227	"/ ].
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7228	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7229	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7230
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7231	"restore controller"
2452 0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	7232	controller := myController.
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	7233
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	7234	"Modified: / 6.5.1999 / 13:11:07 / cg"
4372 30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7235	!
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7236
4978 72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7237	release
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7238	"remove all dependencies from the receiver"
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7239
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7240	visibilityChannel notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7241	visibilityChannel retractInterestsFor:self.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7242	visibilityChannel removeDependent:self. visibilityChannel := nil
4978 72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7243	].
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7244
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7245	dependents := nil.
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7246
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7247	"Modified: 19.4.1996 / 10:31:35 / cg"
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7248	"Created: 11.6.1997 / 13:11:53 / cg"
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7249	!
72d873c3eb05 must retract an interest - not remove dependent Claus Gittinger <cg@exept.de> parents: 4971 diff changeset	7250
4372 30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7251	restarted
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7252	"sent by my windowGroup, when restarted from an image.
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7253	Nothing done here, but can be redefined to perform any actions
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7254	required to reset some state after an image-restart.
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7255
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7256	Only top views (usually instances of TopView) get this message sent.
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7257	Since SimpleViews can act as a top view, too this message is implemented
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7258	in SimpleView"
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7259
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	7260	^ self
135 cf8e46015072 . claus parents: diff changeset	7261	! !
cf8e46015072 . claus parents: diff changeset	7262
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7263	!SimpleView methodsFor:'keyboard control'!
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7264
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7265	defineShortcutAndTranslateLabelStringFrom:aString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7266	\|i\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7267
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7268	aString isString ifFalse:[ ^ aString].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7269
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7270	(aString includes:$&) ifFalse:[ ^ aString].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7271	i := self shortcutAndTranslatedStringFrom:aString.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7272	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	7273	^ i at:2.
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7274	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7275
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7276	mnemonicKey
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7277	"get the mnemonic key or nil if undefined"
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7278
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7279	^ self objectAttributeAt:#mnemonicKey
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7280	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7281
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7282	mnemonicKey:aSymbolOrNil
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7283	"set or clear the mnemonic key"
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7284
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7285	aSymbolOrNil isSymbol ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7286	self objectAttributeAt:#mnemonicKey put:aSymbolOrNil
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7287	] ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7288	self removeObjectAttribute:#mnemonicKey
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7289	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7290	!
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7291
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7292	mnemonicViewNext:aKeyEvent
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7293	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7294	is the mnemonic-key defined for a subView return the view otherwise nil."
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7295
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7296	\|key rawKey mnemonic view\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7297
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7298	key := aKeyEvent key.
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7299	rawKey := aKeyEvent rawKey.
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7300	(shown and:[ subViews notNil ]) ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7301	subViews do:[:aSubView \|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7302	aSubView shown ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7303	(aSubView enabled
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7304	and:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7305	(mnemonic := aSubView mnemonicKey) notNil
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7306	and:[ (mnemonic == rawKey or:[ mnemonic == key ]) ]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7307	])
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7308	ifTrue:[ ^ aSubView ].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7309	(view := aSubView mnemonicViewNext:aKeyEvent) notNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7310	^ view
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7311	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7312	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7313	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7314	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7315	^ nil
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7316	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7317
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7318	performShortcutAction
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7319	"perform my shortcutKey action.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7320	"
3374 3313d1faa927 compilable Claus Gittinger <cg@exept.de> parents: 3371 diff changeset	7321	"/ intentionally left blank here
3313d1faa927 compilable Claus Gittinger <cg@exept.de> parents: 3371 diff changeset	7322	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7323
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7324	processShortcut:aKeyEvent
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7325	"a shortcutKey event as forwarded from the keyboardProcessor - if there is the
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7326	shortcut-key defined process the shortcut and return true otherwise false."
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7327
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7328	\|key\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7329
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7330	shown ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7331	self enabled ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7332	(key := self shortcutKey) notNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7333	(key == aKeyEvent key or:[ key == aKeyEvent rawKey ]) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7334	self requestFocus.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7335	(controller ? self) performShortcutAction.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7336	^ true
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7337	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7338	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7339	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7340	subViews notNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7341	subViews do:[:aSubView \|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7342	(aSubView processShortcut:aKeyEvent) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7343	^ true
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7344	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7345	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7346	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7347	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7348	^ false
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7349	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7350
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7351	shortcutAndTranslatedStringFrom:aString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7352	"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	7353	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	7354	following character"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7355
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	7356	\|xLatedString c n s pos shortcutCharacter shortcut\|
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7357
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7358	xLatedString := '' writeStream.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7359	s := aString readStream.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7360
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7361	[s atEnd] whileFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7362	c := s next.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7363	c == $& ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7364	n := s peek.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7365	(n notNil and:[n isLetter]) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7366	c := s next.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7367	pos := xLatedString size + 1.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7368	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7369	n == $& ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7370	s next.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7371	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7372	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7373	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7374	c notNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7375	xLatedString nextPut:c
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7376	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7377	].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7378
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7379	xLatedString := xLatedString contents.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7380	pos notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7381	shortcutCharacter := xLatedString at:pos ifAbsent:nil.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7382
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7383	xLatedString isText ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7384	xLatedString := Text string:xLatedString
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7385	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7386	xLatedString emphasisAt:pos add:#underline.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7387
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7388	shortcut := ('Cmd' , shortcutCharacter asLowercase) asSymbol.
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7389	].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7390	^ Array with:shortcut with:xLatedString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7391
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7392	"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7393	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'hello' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7394	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7395	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&&llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7396	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he& llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7397	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&123llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7398	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'hello &' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7399	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	7400	"
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7401	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7402
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7403	shortcutKey
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7404	"get the shortcut key"
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7405
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7406	^ self objectAttributeAt:#shortcutKey
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7407	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7408
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7409	shortcutKey:aSymbolOrNil
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7410	"set or clear the shortcut key"
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7411
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	7412	aSymbolOrNil notNil ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7413	self objectAttributeAt:#shortcutKey put:aSymbolOrNil
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7414	] ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7415	self removeObjectAttribute:#shortcutKey
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7416	].
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	7417	! !
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	7418
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7419	!SimpleView methodsFor:'menu handling'!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7420
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7421	activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7422	"activate my menu.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7423	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	7424	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	7425	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	7426	Otherwise, the follwing steps are performed:
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7427
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7428	- ask the receiver for the menu (via #yellowButtonMenu)
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7429	- ask the receiver for the menuPerformer.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7430	- startUp the menu - it is supposed to return an actionSelector
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7431	- if the menuPerformer responds to the selector,
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7432	send it to the performer;
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7433	otherwise send it to the view (the receiver)
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7434	This is funny, it allows additional menuItems to be added
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7435	AND still get the views copy/cut/paste functionality.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7436	Without this, you had to redefine and forward all of those
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7437	messages in the performer."
2489 f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	7438
f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	7439	\|menu menuPerformer actionSelector prevReceiver wg\|
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7440
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	7441	self middleButtonMenu isNil ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7442	"
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7443	try ST-80 style menus first:
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7444	if there is a model, and a menuMessage is defined,
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7445	ask model for the menu and launch that if non-nil.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7446	"
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7447	menu := self yellowButtonMenu.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7448	menu notNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7449	"
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7450	got one, launch the menu. It is supposed
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7451	to return an actionSelector.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7452	"
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7453	menuPerformer := self menuPerformer value.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7454
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7455	"/ could be a spec ...
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7456	menu isArray ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7457	menu := menu decodeAsLiteralArray.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7458	menu receiver:menuPerformer.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7459	menu findGuiResourcesIn:(self menuHolder).
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7460	] ifFalse:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7461	(menu respondsTo:#receiver) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7462	menuPerformer := menu receiver ? menuPerformer.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7463	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7464	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7465
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7466	"
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7467	a temporary kludge:
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7468	pass myself as receiver, the menuPerformer as performer;
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7469	the menu will send its messages to either the
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7470	menuPerformer or me (its receiver).
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7471	This allows for the ST-80 behavior, where some messages
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7472	go to the model, others to the view
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7473	(copy/cut/paste).
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7474	"
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7475	(prevReceiver := menu receiver) isNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7476	"/ kludge for oldStyle menus (MenuView/PopUpMenu)
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7477	"/ not req'd for real Menus
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7478	"/ (menu isKindOf:Menu) ifFalse:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7479	(menu respondsTo:#menuPerformer:) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7480	menu receiver:self. "/ really ?
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7481	menu menuPerformer:menuPerformer.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7482	] ifFalse:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7483	"/ ] ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7484	"/ new style menu
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7485	menu receiver:menuPerformer.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7486	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7487	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7488
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7489	"/
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7490	"/ startup the menu - this returns a selector
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7491	"/
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7492	actionSelector := self startUpMenu:menu.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7493
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7494	"/ before doing anything else, redraw expose area from
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7495	"/ the menu (in case the action changes my state)
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7496	(wg := self windowGroup) notNil ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7497	wg processExposeEvents.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7498	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7499
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7500	(actionSelector notNil and:[actionSelector isSymbol]) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7501	self dispatchMenuSelection:actionSelector to: menuPerformer.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7502	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7503
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7504	menu receiver:prevReceiver.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7505
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7506	^ self
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7507	].
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7508	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7509
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7510	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7511	"/ old style static menu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7512	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7513	super activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7514
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	7515	"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	7516	"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	7517	!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7518
3241 e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	7519	dispatchMenuSelection:menuSelection to:aMenuPerformerOrNil
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7520	"dispatch a menu message.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7521	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	7522
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7523	\|actionSelector actionArg1 actionArg2 app menuPerformer\|
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7524
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7525	actionSelector := menuSelection.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7526
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7527	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7528	mhmh - kludge for selectors with argument
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7529	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7530	(menuSelection isMemberOf:Array) ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7531	actionArg1 := menuSelection at:2.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7532	actionSelector := menuSelection at:1.
3241 e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	7533	].
e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	7534
e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	7535	menuPerformer := aMenuPerformerOrNil ? self menuPerformer.
1839 7da27042198c checkin from browser Claus Gittinger <cg@exept.de> parents: 1837 diff changeset	7536
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7537	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7538	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	7539	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	7540	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	7541	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7542	actionSelector isSymbol ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7543	(menuPerformer respondsTo:actionSelector) ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7544	((app := self application) respondsTo:actionSelector) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7545	menuPerformer := app.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7546	actionArg1 := self model.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7547	actionArg2 := self controller.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7548	] ifFalse:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7549	(self respondsTo:actionSelector) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7550	menuPerformer := self
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7551	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7552	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7553	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7554	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	7555	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7556
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7557	"Created: / 20.6.1997 / 11:47:42 / cg"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	7558	"Modified: / 1.11.1997 / 13:45:23 / cg"
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7559	!
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7560
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7561	menuFromSpec:aMenuOrMenuSpec
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7562	"create a menu for the receiver from a spec"
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7563
3559 bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	7564	\|spec\|
bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	7565
bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	7566	aMenuOrMenuSpec isNil ifTrue:[^ nil].
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7567
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7568	aMenuOrMenuSpec isArray ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7569	spec := aMenuOrMenuSpec decodeAsLiteralArray.
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7570	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7571	spec := aMenuOrMenuSpec.
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7572	].
3556 eaea177415b0 findGuiResources... now sets the receiver, if not yet set Claus Gittinger <cg@exept.de> parents: 3540 diff changeset	7573	"/ spec receiver:self. -- now done in findGuiResources ...
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7574	spec findGuiResourcesIn:self.
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	7575	^ spec.
3752 c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	7576	!
c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	7577
c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	7578	startUpMenu:aMenu
3753 e593d6729f4e can now specify if menu action is to be performed by ca parents: 3752 diff changeset	7579	^ aMenu startUpFor:self
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7580	! !
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	7581
140 0db355079dc4 . claus parents: 138 diff changeset	7582	!SimpleView methodsFor:'private'!
0db355079dc4 . claus parents: 138 diff changeset	7583
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	7584	componentsContainingX:x y:y do:aBlock
4609 0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	7585	(x isNil or:[y isNil]) ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7586	"/ delegated
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7587	^ self
4609 0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	7588	].
0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	7589
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	7590	components notNil ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7591	components reverseDo:[:aComponent \|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7592	\|thisFrame\|
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7593
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7594	thisFrame := aComponent bounds.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7595	(thisFrame containsPointX:x y:y) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7596	"/ prepare for masked/non-rectangular components ...
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7597	(aComponent perform:#containsPointX:y: with:x with:y ifNotUnderstood:true)
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7598	ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7599	aBlock value:aComponent
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7600	value:x - thisFrame left
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7601	value:y - thisFrame top.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7602	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7603	]
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	7604	]
4609 0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	7605	].
0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	7606
0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	7607	"Created: / 08-05-1996 / 23:40:59 / cg"
0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	7608	"Modified: / 13-09-2006 / 18:55:30 / User"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	7609	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	7610
140 0db355079dc4 . claus parents: 138 diff changeset	7611	computeInnerClip
0db355079dc4 . claus parents: 138 diff changeset	7612	"compute, but do not set the inside clip-area"
0db355079dc4 . claus parents: 138 diff changeset	7613
0db355079dc4 . claus parents: 138 diff changeset	7614	\|m2 nX nY nW nH\|
0db355079dc4 . claus parents: 138 diff changeset	7615
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	7616	margin isNil ifTrue:[margin := 0].
140 0db355079dc4 . claus parents: 138 diff changeset	7617	(margin ~~ 0) ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7618	m2 := margin + margin.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7619	nX := nY := margin.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7620	nW := width - m2.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7621	nH := height - m2.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7622	"/ transformation notNil ifTrue:[
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7623	"/ nX := transformation applyInverseToX:nX.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7624	"/ nY := transformation applyInverseToY:nY.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7625	"/ nW := transformation applyInverseScaleX:nW.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7626	"/ nH := transformation applyInverseScaleY:nH.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7627	"/ ].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7628	innerClipRect := Rectangle
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7629	left:nX
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7630	top:nY
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7631	width:nW
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7632	height:nH
140 0db355079dc4 . claus parents: 138 diff changeset	7633	] ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7634	"no clipping"
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7635	innerClipRect := nil
140 0db355079dc4 . claus parents: 138 diff changeset	7636	]
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7637
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	7638	"Modified: / 22.5.1999 / 16:50:58 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	7639	!
0db355079dc4 . claus parents: 138 diff changeset	7640
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7641	cornerFromRelativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7642	"compute & return pixel corner from relativeCorner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7643
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7644	^ self cornerFromRelativeCorner:relativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7645	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7646
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7647	cornerFromRelativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7648	"compute & return pixel corner from a relativeCorner, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7649
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7650	\|p r b bw\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7651
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7652	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7653
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7654	bw := self borderWidth ? 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7655	insets isNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7656	bw == 0 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7657	^ p
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7658	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7659	^ (p x - bw) @ (p y - bw)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7660	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7661	r := (insets at:3) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7662	b := (insets at:4) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7663
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7664	"/ r := b := bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7665	"/ rightInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7666	"/ r := rightInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7667	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7668	"/ bottomInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7669	"/ b := bottomInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7670	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7671	((r ~~ 0) or:[b ~~ 0]) ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7672	^ (p x - r) @ (p y - b)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7673	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7674	^ p
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	7675
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	7676	"Modified: / 1.10.1998 / 13:21:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7677	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7678
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7679	detectViewAt:aPoint
3540 5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7680	"find the subView which contains aPoint - invisible components are ignored.
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7681	This is almost the same as #componentContainingX:y: (if that existed) "
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7682
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7683	^ self detectViewAt:aPoint ignoreInvisible:false
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7684	!
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7685
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7686	detectViewAt:aPoint ignoreInvisible:ignoreInvisible
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7687	"find the subView which contains aPoint - invisible components are ignored if
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	7688	the ignoreInvisible argument is false.
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7689	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	7690
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	7691	\|subViews\|
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7692
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7693	(subViews := self subViews) notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7694	subViews do:[:v\| \|p\|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7695	(ignoreInvisible or:[v shown]) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7696	( (aPoint x between:(v left) and:(v right))
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7697	and:[aPoint y between:(v top) and:(v bottom)]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7698	) ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7699	"/ found a subview - the point is there
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7700	p := device translatePoint:aPoint fromView:self toView:v.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7701	^ v detectViewAt:p ignoreInvisible:ignoreInvisible.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7702	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7703	]
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	7704	]
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7705	].
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7706	"/ no subview - the point is here
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7707	^ self
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7708
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7709	"Modified: / 10.10.2001 / 13:45:26 / cg"
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7710	!
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	7711
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7712	explicitExtent:aBoolean
5060 01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	7713	"set the exeplicit extent flag to aBoolean."
01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	7714
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7715	aBoolean ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7716	flagBits := flagBits bitOr:FlagHasExplicitExtent
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7717	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7718	flagBits := flagBits bitClear:FlagHasExplicitExtent
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7719	].
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7720	!
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7721
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7722	extentFromRelativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7723	"compute & return pixel extent from relativeExtent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7724
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7725	^ self extentFromRelativeExtent:relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7726	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7727
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7728	extentFromRelativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7729	"compute & return pixel extent from relativeExtent, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7730
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7731	\|rel newX newY inRect bw bw2 i\|
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7732
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7733	bw := self borderWidth ? 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7734
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7735	superView isNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7736	inRect := 0@0 extent:device extent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7737	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7738	inRect := superView viewRectangle.
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7739	].
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7740
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7741	bw2 := bw * 2.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7742
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7743	rel := aPoint x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7744	rel isInteger ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7745	newX := (rel * (inRect width + bw2)) asInteger + inRect left.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7746	(bw ~~ 0) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7747	newX := newX - bw
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7748	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7749	] ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7750	newX := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7751	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7752
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7753	rel := aPoint y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7754	rel isInteger ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7755	newY := (rel * (inRect height + bw2)) asInteger + inRect top.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7756	(bw ~~ 0) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7757	newY := newY - bw
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7758	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7759	] ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7760	newY := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7761	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7762
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7763	insets notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7764	i := insets at:1. "top"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7765	(i ~~ 0) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7766	newX := newX - i
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7767	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7768	i := insets at:3. "left"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7769	(i ~~ 0) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7770	newX := newX - i
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7771	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7772	i := insets at:2. "right"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7773	(i ~~ 0) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7774	newY := newY - i
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7775	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7776	i := insets at:4. "bottom"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7777	(i ~~ 0) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7778	newY := newY - i
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7779	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7780	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7781	^ newX @ newY
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7782	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7783
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7784	originFromRelativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7785	"compute & return pixel origin from relativeOrigin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7786
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7787	^ self originFromRelativeOrigin:relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7788	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7789
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7790	originFromRelativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7791	"compute & return pixel origin from relativeOrigin, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7792
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7793	\|p l t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7794
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7795	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7796
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7797	insets isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7798	^ p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7799	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7800	l := insets at:1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7801	t := insets at:2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7802
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7803	"/ l := t := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7804	"/ leftInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7805	"/ l := leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7806	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7807	"/ topInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7808	"/ t := topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7809	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7810	((l ~~ 0) or:[t ~~ 0]) ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	7811	^ (p x + l) @ (p y + t)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7812	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7813	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7814	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7815
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7816	pixelCorner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7817	"set the views corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7818
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7819	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7820
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7821	w := corner x - left + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7822	h := corner y - top + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7823	self pixelOrigin:(left @ top) extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7824
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7825	"Modified: 31.8.1995 / 18:20:22 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7826	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7827
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7828	pixelExtent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7829	"set the views extent in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7830
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7831	self pixelOrigin:(left @ top) extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7832	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7833
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	7834	pixelOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	7835	"return the views origin in pixels. For subviews. the origin is relative
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	7836	to the superviews top-left. For topViews, its the screen origin."
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	7837
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	7838	^ self computeOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	7839	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	7840
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7841	pixelOrigin:origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7842	"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	7843	to the superviews top-left. For topViews, its the screen origin."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7844
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7845	\|newLeft newTop\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7846
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7847	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7848	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7849	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
5679 455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7850	top := newTop.
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7851	left := newLeft.
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7852
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7853	"
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7854	if the receiver is visible, or is a topView, perform the
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7855	operation right away - otherwise, simply remember that the
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7856	origin has changed - will tell the display once we get realized
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7857	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7858	"/ (shown
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7859	"/ or:[superView isNil and:[drawableId notNil]]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7860
5679 455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7861	"/ no, have to do it if drawableId is there
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7862	"/ (otherwise, we could not move unmapped views around ...
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7863	"/
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7864	drawableId notNil ifTrue:[
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7865	device moveWindow:drawableId x:left y:top
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7866	] ifFalse:[
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7867	self originChangedFlag:true
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7868	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7869	]
5679 455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7870
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	7871	"Modified: / 21-01-2011 / 13:59:08 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7872	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7873
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7874	pixelOrigin:origin corner:corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7875	"set the views origin and corner in pixels"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7876
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7877	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7878
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7879	w := corner x - origin x + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7880	h := corner y - origin y + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7881	self pixelOrigin:origin extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7882
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7883	"Modified: 31.8.1995 / 18:24:16 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7884	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7885
140 0db355079dc4 . claus parents: 138 diff changeset	7886	pixelOrigin:origin extent:extent
0db355079dc4 . claus parents: 138 diff changeset	7887	"set the views origin and extent in pixels"
0db355079dc4 . claus parents: 138 diff changeset	7888
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7889	\|newLeft newTop newWidth newHeight how
140 0db355079dc4 . claus parents: 138 diff changeset	7890	mustRedrawBottomEdge mustRedrawRightEdge mustRepaintBottom
3340 f810ebc6d836 preserve current paint when drawing edges martin parents: 3327 diff changeset	7891	mustRepaintRight sameOrigin oldWidth oldHeight oldPaint\|
140 0db355079dc4 . claus parents: 138 diff changeset	7892
0db355079dc4 . claus parents: 138 diff changeset	7893	newLeft := origin x.
0db355079dc4 . claus parents: 138 diff changeset	7894	newTop := origin y.
0db355079dc4 . claus parents: 138 diff changeset	7895	sameOrigin := ((newTop == top) and:[newLeft == left]).
0db355079dc4 . claus parents: 138 diff changeset	7896
0db355079dc4 . claus parents: 138 diff changeset	7897	newWidth := extent x.
0db355079dc4 . claus parents: 138 diff changeset	7898	newHeight := extent y.
0db355079dc4 . claus parents: 138 diff changeset	7899
0db355079dc4 . claus parents: 138 diff changeset	7900	"
0db355079dc4 . claus parents: 138 diff changeset	7901	X complains badly if you try to create/resize a view with
5436 59effbe755f7 changed: Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	7902	a dimension <= 0 ... (although I think that 0 makes sense ...)
140 0db355079dc4 . claus parents: 138 diff changeset	7903	"
0db355079dc4 . claus parents: 138 diff changeset	7904	newWidth < 1 ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7905	newWidth := 1.
140 0db355079dc4 . claus parents: 138 diff changeset	7906	].
0db355079dc4 . claus parents: 138 diff changeset	7907	newHeight < 1 ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7908	newHeight := 1
140 0db355079dc4 . claus parents: 138 diff changeset	7909	].
0db355079dc4 . claus parents: 138 diff changeset	7910
0db355079dc4 . claus parents: 138 diff changeset	7911	((newWidth == width) and:[newHeight == height]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7912	sameOrigin ifTrue:[^ self].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7913	self changed:#origin.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7914	^ self pixelOrigin:origin
5428 62da57f5206d border drawing on resize Claus Gittinger <cg@exept.de> parents: 5422 diff changeset	7915	].
62da57f5206d border drawing on resize Claus Gittinger <cg@exept.de> parents: 5422 diff changeset	7916
140 0db355079dc4 . claus parents: 138 diff changeset	7917	top := newTop.
0db355079dc4 . claus parents: 138 diff changeset	7918	left := newLeft.
0db355079dc4 . claus parents: 138 diff changeset	7919
0db355079dc4 . claus parents: 138 diff changeset	7920	"/ shown ifTrue:[ "4-nov-94 actually correct,"
0db355079dc4 . claus parents: 138 diff changeset	7921	drawableId notNil ifTrue:[ "but theres a bug in menus when resized while hidden"
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7922	mustRedrawBottomEdge := (margin ~~ 0) and:[newHeight < height].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7923	mustRedrawRightEdge := (margin ~~ 0) and:[newWidth < width].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7924
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7925	((newHeight <= height) and:[newWidth <= width]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7926	how := #smaller
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7927	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7928	((newHeight >= height) and:[newWidth >= width]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7929	how := #larger
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7930	]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7931	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7932
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7933	mustRepaintRight := false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7934	mustRepaintBottom := false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7935
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7936	oldWidth := width.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7937	oldHeight := height.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7938
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7939	shown ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7940	(margin ~~ 0) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7941	"clear the old edges"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7942
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7943	oldPaint := nil.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7944	newWidth > width ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7945	self clippingRectangle:nil.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7946	oldPaint := paint.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7947	self paint:viewBackground.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7948	self fillDeviceRectangleX:(width - margin)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7949	y:0
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7950	width:margin
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7951	height:height.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7952	mustRepaintRight := true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7953	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7954	newHeight > height ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7955	self clippingRectangle:nil.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7956	oldPaint := paint.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7957	self paint:viewBackground.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7958	self fillDeviceRectangleX:0
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7959	y:(height - margin)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7960	width:width
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7961	height:margin.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7962	mustRepaintBottom := true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7963	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7964	oldPaint notNil ifTrue:[ self paint:oldPaint. ]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7965	]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7966	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7967
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7968	width := newWidth.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7969	height := newHeight.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7970
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7971	self setInnerClip.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7972
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7973	"if view becomes smaller, send sizeChanged first"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7974	true "(how == #smaller)" ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7975	self sizeChanged:how
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7976	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7977
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7978	"have to tell X, when extent of view is changed"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7979	sameOrigin ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7980	device resizeWindow:drawableId width:width height:height.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7981
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7982	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7983	"claus: some xservers seem to do better when resizing
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7984	first ...."
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7985	"
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7986	(how == #smaller) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7987	device resizeWindow:drawableId width:width height:height.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7988	device moveWindow:drawableId x:left y:top
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7989	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7990	device moveResizeWindow:drawableId x:left y:top width:width height:height
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7991	].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7992	"
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7993	device moveResizeWindow:drawableId x:left y:top
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7994	width:width height:height.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7995	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7996
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7997	"if view becomes bigger, send sizeChanged after"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7998	false "(how ~~ #smaller)" ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	7999	self sizeChanged:how
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8000	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8001
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8002	shown ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8003	(mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8004	border notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8005	mustRedrawBottomEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8006	self invalidateDeviceRectangle:((0 @ (height - margin)) extent:width@margin) repairNow:false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8007	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8008	mustRedrawRightEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8009	self invalidateDeviceRectangle:(((width - margin) @ 0) extent:margin@height) repairNow:false.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8010	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8011	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8012	self deviceClippingRectangle:nil.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8013	oldPaint := paint.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8014	mustRedrawBottomEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8015	self drawBottomEdge
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8016	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8017	mustRedrawRightEdge ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8018	self drawRightEdge
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8019	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8020	self paint:oldPaint.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8021	self deviceClippingRectangle:innerClipRect
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8022	]
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8023	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8024	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8025
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8026	mustRepaintRight ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8027	self invalidateDeviceRectangle:(((oldWidth - margin) @ 0)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8028	extent:margin@height)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8029	repairNow:false.
2400 13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8030	"/ self redrawDeviceX:(oldWidth - margin)
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8031	"/ y:0
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8032	"/ width:margin
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8033	"/ height:height.
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8034	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8035	mustRepaintBottom ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8036	self invalidateDeviceRectangle:((0 @ (oldHeight - margin))
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8037	extent:width@margin)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8038	repairNow:false.
2400 13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8039	"/ self redrawDeviceX:0
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8040	"/ y:(oldHeight - margin)
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8041	"/ width:width
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8042	"/ height:margin.
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8043	].
140 0db355079dc4 . claus parents: 138 diff changeset	8044	] ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8045	"otherwise memorize the need for a sizeChanged message"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8046
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8047	width := newWidth.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8048	height := newHeight.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8049	sameOrigin ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8050	self originChangedFlag:true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8051	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8052	self extentChangedFlag:true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8053	subViews size > 0 ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8054	self extentChangedBeforeCreatedFlag:true.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8055	].
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	8056	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	8057	sameOrigin ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8058	self changed:#origin.
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	8059	].
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	8060
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8061	"Modified: / 25.5.1999 / 14:49:56 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	8062	!
0db355079dc4 . claus parents: 138 diff changeset	8063
0db355079dc4 . claus parents: 138 diff changeset	8064	pointFromRelative:p
0db355079dc4 . claus parents: 138 diff changeset	8065	"compute absolute coordinate from p"
0db355079dc4 . claus parents: 138 diff changeset	8066
0db355079dc4 . claus parents: 138 diff changeset	8067	\|newX newY rel inRect bw superWidth superHeight superLeft superTop \|
0db355079dc4 . claus parents: 138 diff changeset	8068
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	8069	bw := self borderWidth ? 0.
140 0db355079dc4 . claus parents: 138 diff changeset	8070
0db355079dc4 . claus parents: 138 diff changeset	8071	superView isNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8072	superWidth := device width + bw.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8073	superHeight := device height + bw.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8074	superLeft := superTop := 0.
140 0db355079dc4 . claus parents: 138 diff changeset	8075	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8076	inRect := superView viewRectangle.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8077	superWidth := inRect width.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8078	superHeight := inRect height.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8079	superLeft := inRect left.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8080	superTop := inRect top.
140 0db355079dc4 . claus parents: 138 diff changeset	8081	].
0db355079dc4 . claus parents: 138 diff changeset	8082
0db355079dc4 . claus parents: 138 diff changeset	8083	rel := p x.
0db355079dc4 . claus parents: 138 diff changeset	8084	rel isInteger ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8085	newX := rel
140 0db355079dc4 . claus parents: 138 diff changeset	8086	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8087	newX := (rel * superWidth) asInteger + superLeft.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8088	(bw ~~ 0) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8089	rel ~= 1.0 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8090	newX := newX - bw
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8091	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8092	]
140 0db355079dc4 . claus parents: 138 diff changeset	8093	].
0db355079dc4 . claus parents: 138 diff changeset	8094
0db355079dc4 . claus parents: 138 diff changeset	8095	rel := p y.
0db355079dc4 . claus parents: 138 diff changeset	8096	rel isInteger ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8097	newY := rel
140 0db355079dc4 . claus parents: 138 diff changeset	8098	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8099	newY := (rel * superHeight) asInteger + superTop.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8100	(bw ~~ 0) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8101	rel ~= 1.0 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8102	newY := newY - bw
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8103	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8104	]
140 0db355079dc4 . claus parents: 138 diff changeset	8105	].
0db355079dc4 . claus parents: 138 diff changeset	8106	^ newX @ newY
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	8107
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	8108	"Modified: / 1.10.1998 / 13:21:14 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	8109	!
0db355079dc4 . claus parents: 138 diff changeset	8110
0db355079dc4 . claus parents: 138 diff changeset	8111	setBorderColor
5405 369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	8112	"set my borderColor in the physical view (if supported by the device)"
140 0db355079dc4 . claus parents: 138 diff changeset	8113
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8114	"/ \|id dither\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8115	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8116	"/ drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8117	"/ borderColor := borderColor onDevice:device.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8118	"/ id := borderColor colorId.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8119	"/ id notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8120	"/ device setWindowBorderColor:id in:drawableId
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8121	"/ ] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8122	"/ dither := borderColor ditherForm.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8123	"/ dither notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8124	"/ device setWindowBorderPixmap:(dither id) in:drawableId
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8125	"/ ] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8126	"/ 'SimpleView [warning]: bad borderColor' errorPrintCR
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8127	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8128	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8129	"/ ]
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	8130
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	8131	"Modified: 10.1.1997 / 18:06:34 / cg"
135 cf8e46015072 . claus parents: diff changeset	8132	!
cf8e46015072 . claus parents: diff changeset	8133
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8134	setInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8135	"compute, and set the inside clip-area"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8136
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8137	self computeInnerClip.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8138	self deviceClippingRectangle:innerClipRect.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8139
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8140	"Modified: / 25.5.1999 / 14:45:53 / cg"
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8141	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8142
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	8143	setShown:aState
6acf2874394b WO's stuff werner parents: 4131 diff changeset	8144	shown := aState
6acf2874394b WO's stuff werner parents: 4131 diff changeset	8145
6acf2874394b WO's stuff werner parents: 4131 diff changeset	8146	!
6acf2874394b WO's stuff werner parents: 4131 diff changeset	8147
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8148	setViewShape
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8149	\|form\|
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8150
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8151	(form := viewShape borderShapeForm) notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8152	device setWindowBorderShape:(form id) in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8153	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8154	(form := viewShape viewShapeForm) notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8155	device setWindowShape:(form id) in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8156	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8157
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	8158	"Created: 18.9.1997 / 11:09:00 / cg"
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	8159	!
6acf2874394b WO's stuff werner parents: 4131 diff changeset	8160
6acf2874394b WO's stuff werner parents: 4131 diff changeset	8161	windowGroupClass
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8162	^ WindowGroup
140 0db355079dc4 . claus parents: 138 diff changeset	8163	! !
0db355079dc4 . claus parents: 138 diff changeset	8164
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8165	!SimpleView methodsFor:'queries'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8166
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8167	canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8168	"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	8169	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	8170	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8171
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8172	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8173	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8174
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8175	canHandle:aKey from:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8176	"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	8177	in aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8178	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	8179	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8180
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8181	^ self canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8182	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8183
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8184	computePreferredExtent
5060 01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	8185	"compute answer the preferred extent, disregarding
01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	8186	an explicit or cached preferred extent for the computation"
01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	8187
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8188	\|savedPref savedExplicit computedPref\|
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8189
440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8190	savedPref := preferredExtent.
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8191	savedExplicit := explicitExtent.
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8192	[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8193	preferredExtent := explicitExtent := nil.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8194	computedPref := self preferredExtent.
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8195	] ensure:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8196	preferredExtent := savedPref.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8197	explicitExtent := savedExplicit.
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8198	].
440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8199	^ computedPref
440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8200	!
440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	8201
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8202	cornerChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8203	"/ ^ cornerChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8204	^ flagBits bitTest:FlagCornerChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8205	!
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8206
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8207	cornerChangedFlag:aBoolean
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8208	"/ cornerChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8209	aBoolean ifTrue:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8210	flagBits := flagBits bitOr:FlagCornerChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8211	] ifFalse:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8212	flagBits := flagBits bitClear:FlagCornerChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8213	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8214	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8215
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8216	delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8217	"return true, if I delegate events to someone"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8218
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8219	delegate isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8220	^ delegate delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8221	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8222
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	8223	escapeIsCancel
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	8224	"return the escapeIsCancel setting - defaults to true for popupViews here."
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	8225
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	8226	^ self isPopUpView
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	8227	!
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	8228
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	8229	extentChangedBeforeCreatedFlag
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	8230	^ flagBits bitTest:FlagExtentChangedBeforeCreated
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	8231	!
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	8232
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	8233	extentChangedBeforeCreatedFlag:aBoolean
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	8234	aBoolean ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8235	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	8236	] ifFalse:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8237	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	8238	].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	8239	!
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	8240
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8241	extentChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8242	"/ ^ extentChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8243	^ flagBits bitTest:FlagExtentChanged
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8244	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8245
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8246	extentChangedFlag:aBoolean
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8247	"/ extentChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8248	aBoolean ifTrue:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8249	flagBits := flagBits bitOr:FlagExtentChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8250	] ifFalse:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8251	flagBits := flagBits bitClear:FlagExtentChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8252	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8253	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8254
5140 711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	8255	hasExplicitFocus
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	8256	"return true, if the receiver has the keyboard focus
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	8257	via the focusView mechanism in the windowGroup"
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	8258
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	8259	windowGroup isNil ifTrue:[^ false].
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	8260	^ windowGroup explicitFocusView == self
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	8261	!
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	8262
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8263	hasFocus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8264	"return true, if the receiver has the keyboard focus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8265	(either via the focusView mechanism in the windowGroup,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8266	or via delegation)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8267
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8268	\|focusViewToCheck focusViewInWindowGroup focusViewOnDisplay delegate\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8269
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8270	windowGroup isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8271
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8272	"/ this is wrong (the old code).
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8273	"/ focusViewInWindowGroup := windowGroup focusView.
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8274	"/ focusViewToCheck := focusViewInWindowGroup.
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8275
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8276	focusViewOnDisplay := device focusView.
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8277	focusViewToCheck := focusViewOnDisplay.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8278
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8279	focusViewToCheck == self ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8280	^ true
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8281	].
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8282
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8283	focusViewToCheck notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8284	"mhmh - is there a delegation to me ?"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8285	(delegate := focusViewToCheck delegate) notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8286	delegate == self ifTrue:[^ true].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8287	^ delegate askFor:#delegatesTo: with:self
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8288	]
135 cf8e46015072 . claus parents: diff changeset	8289	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8290	^ false
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8291
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	8292	"Modified: / 08-11-2006 / 12:10:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8293	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8294
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	8295	is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	8296	"return true, if my style is some kind of 3D style
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	8297	This is OBSOLETE and will be removed."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	8298
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	8299	^ styleSheet is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	8300	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	8301
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	8302	isBorderedWrapper
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	8303	^ false
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	8304
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	8305	"Created: 5.6.1996 / 14:11:15 / cg"
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	8306	!
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	8307
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8308	isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8309	"return true, if I am a (direct or indirect) component of aViewOrComponent"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8310
3362 6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	8311	\|sview\|
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	8312
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	8313	sview := self.
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	8314
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	8315	[ (sview := sview container) notNil ] whileTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8316	sview == aViewOrComponent ifTrue:[^ true].
3362 6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	8317	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8318	^ false
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8319	!
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8320
3711 f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	8321	isCursorKeyConsumer
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	8322	"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	8323	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	8324	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	8325	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	8326	mode is off.
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	8327	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	8328
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	8329	^ false
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	8330	!
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	8331
2496 f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	8332	isDefault
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	8333	"return true, if I am a default widget;
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	8334	Used with autoAccept. Currently only default buttons are supposed to return
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	8335	true here"
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	8336
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	8337	^ false
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	8338	!
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	8339
2430 fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	8340	isExternalTopView
2454 f708fb443ffe method comment Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	8341	"return true, if this is an external topView - always false here"
f708fb443ffe method comment Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	8342
2430 fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	8343	^ false
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	8344
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	8345
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	8346	!
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	8347
497 5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8348	isInputField
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8349	"return true, if the receiver is some kind of input view,
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8350	i.e. it should (can) be part of an enterGroup.
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8351	Return false here, this is redefined in EnterField."
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8352
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8353	^ false
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8354
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8355	"Created: 4.3.1996 / 11:34:07 / cg"
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8356	!
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	8357
2410 050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	8358	isJavaView
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	8359	^ false
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	8360
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	8361	"Created: / 4.12.1998 / 14:10:06 / cg"
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	8362	!
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	8363
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8364	isKeyboardConsumer
2727 2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	8365	"return true, if the receiver is a keyboard consumer;
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8366	i.e. it can handle (non-shortkey) keyboard input,
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8367	keyboardConsumer are potential candidates for getting the keyboard
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8368	focus initially within dialogBoxes, or when the focus-follows-pointer
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8369	mode is off.
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8370	Return false here, this is redefined in EditTextView and EditField."
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8371
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8372	^ false
2727 2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	8373
2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	8374	"Modified: / 22.5.1999 / 16:19:27 / cg"
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8375	!
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	8376
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	8377	isLayoutWrapper
5229 3caaef23e005 UIPainter can now resize subviews of PanelViews Stefan Vogel <sv@exept.de> parents: 5228 diff changeset	8378	"answer true, if this view defines the layout of it's subviews"
3caaef23e005 UIPainter can now resize subviews of PanelViews Stefan Vogel <sv@exept.de> parents: 5228 diff changeset	8379
3caaef23e005 UIPainter can now resize subviews of PanelViews Stefan Vogel <sv@exept.de> parents: 5228 diff changeset	8380	^ false
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	8381
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	8382	"Created: 19.7.1996 / 17:51:04 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	8383	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	8384
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	8385	isMDIClientView
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	8386	^false
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	8387	!
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	8388
4184 1b6a082d98e2 isModal added ca parents: 4157 diff changeset	8389	isModal
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	8390	"return true, if the receiver has been opened modal.
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	8391	For compatibility with topView (if regular views are the window of an application),
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	8392	return false here."
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	8393
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	8394	^ false
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	8395	!
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	8396
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	8397	isSameOrComponentOf:aView
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	8398	"return true, if I am aView or a (direct or indirect) component of aView"
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	8399
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	8400	^ self == aView or:[self isComponentOf:aView].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	8401	!
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	8402
2161 46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	8403	isScrollWrapper
4918 4c804945889f Clean up documentation & variable names Stefan Vogel <sv@exept.de> parents: 4915 diff changeset	8404	"answer true if this view wraps a possibly larger view and has scroll bars"
4c804945889f Clean up documentation & variable names Stefan Vogel <sv@exept.de> parents: 4915 diff changeset	8405
2161 46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	8406	^ false
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	8407
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	8408	"Created: / 5.6.1996 / 14:11:15 / cg"
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	8409	"Modified: / 20.6.1998 / 14:15:29 / cg"
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	8410	!
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	8411
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8412	isSubViewOf:aView
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8413	"return true, if I am a (direct or indirect) subview of aView"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8414
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	8415	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	8416
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8417	self obsoleteMethodWarning:'use #isComponentOf:'.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8418	^ self isComponentOf:aView.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8419
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	8420	"Modified: 5.6.1996 / 14:25:35 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8421	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8422
3754 e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	8423	isTextView
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	8424	"I am not showing text (showing lines)"
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	8425
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	8426	^ false
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	8427	!
e9e44cddffd0 isTextView query moved Claus Gittinger <cg@exept.de> parents: 3753 diff changeset	8428
4151 a3f84166256d isTBox werner parents: 4150 diff changeset	8429	isTransparentBox
a3f84166256d isTBox werner parents: 4150 diff changeset	8430	^ false
a3f84166256d isTBox werner parents: 4150 diff changeset	8431	!
a3f84166256d isTBox werner parents: 4150 diff changeset	8432
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	8433	isWrapper
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	8434	^ false
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	8435
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	8436	"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	8437	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	8438
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8439	originChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8440	"/ ^ originChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8441	^ flagBits bitTest:FlagOriginChanged
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8442	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8443
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8444	originChangedFlag:aBoolean
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8445	"/ originChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8446	aBoolean ifTrue:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8447	flagBits := flagBits bitOr:FlagOriginChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8448	] ifFalse:[
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8449	flagBits := flagBits bitClear:FlagOriginChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8450	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8451	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	8452
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8453	originChangedFlag:originChanged extentChangedFlag:extentChanged
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8454	\|newBits\|
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8455
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8456	newBits := flagBits bitClear:(FlagOriginChanged \| FlagExtentChanged).
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8457
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8458	originChanged ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8459	newBits := newBits bitOr:FlagOriginChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8460	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8461	extentChanged ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8462	newBits := newBits bitOr:FlagExtentChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8463	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8464
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8465	flagBits := newBits.
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8466	!
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8467
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8468	originChangedFlag:originChanged extentChangedFlag:extentChanged cornerChangedFlag:cornerChanged
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8469	\|newBits\|
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8470
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8471	newBits := flagBits bitClear:(FlagOriginChanged \| FlagExtentChanged \| FlagCornerChanged).
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8472
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8473	originChanged ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8474	newBits := newBits bitOr:FlagOriginChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8475	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8476	extentChanged ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8477	newBits := newBits bitOr:FlagExtentChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8478	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8479	cornerChanged ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8480	newBits := newBits bitOr:FlagCornerChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8481	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8482
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8483	flagBits := newBits.
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8484	!
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	8485
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8486	originOrExtentChanged
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8487	"/ ^ originChanged or:[extentChanged].
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8488	^ flagBits bitTest:( FlagOriginChanged + FlagExtentChanged )
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8489	!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8490
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8491	originOrExtentOrCornerChanged
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8492	"/ ^ 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	8493	^ 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	8494	!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8495
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8496	preferredBounds
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8497	"ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8498
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	8499	^ 0@0 extent:(self preferredExtent)
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	8500
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	8501	"Modified: 19.7.1996 / 20:41:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8502	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8503
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8504	preferredExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8505	"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	8506	If the preferredExtent has been set, that one is returned.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8507	Otherwise, if there are any components, a rectangle enclosing them
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8508	is returned. Otherwise, the actual extent is returned."
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8509
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	8510	\|maxX maxY\|
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8511
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8512	"/ If I have an explicit preferredExtent..
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8513	explicitExtent notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8514	^ explicitExtent
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8515	].
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8516
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8517	"/ If I have a cached preferredExtent value..
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8518	preferredExtent notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8519	^ preferredExtent
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8520	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8521
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8522	"/ mhmh - if I have subViews, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8523	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8524
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8525	subViews notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8526	maxX := maxY := 0.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8527	subViews do:[:aSubView \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8528	\|org corn\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8529
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8530	org := aSubView computeOrigin.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8531	corn := org + aSubView preferredExtent.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8532	maxX := maxX max:corn x.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8533	maxY := maxY max:corn y.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8534	]
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8535	].
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8536
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	8537	"/ mhmh - if I have components, collect their preferred bounds ...
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8538	components notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8539	maxX isNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8540	maxX := maxY := 0.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8541	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8542	components do:[:aComponent \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8543	\|bounds org corn\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8544
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8545	bounds := aComponent preferredBounds.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8546	corn := bounds corner.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8547	maxX := maxX max:corn x.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8548	maxY := maxY max:corn y.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8549	]
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8550	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8551
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8552	"/ nothing found - return the actual size
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8553
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8554	maxX isNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8555	^ self extent.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8556	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8557
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8558	^ maxX @ maxY.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	8559
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	8560	"Modified: 19.7.1996 / 20:43:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8561	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8562
4970 6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	8563	preferredHeight
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	8564	^ self preferredExtent y
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	8565	!
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	8566
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	8567	preferredWidth
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	8568	^ self preferredExtent x
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	8569	!
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	8570
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8571	reallyRealized
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8572	"return true, if the receiver is realized and all containers
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8573	are realized."
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8574
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8575	realized ifFalse:[^ false].
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8576	superView isNil ifTrue:[^ true].
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8577	^ superView reallyRealized
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8578
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8579
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8580	!
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	8581
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	8582	resources
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8583	"return the views resources -
5221 3c4682d4b409 comment only Claus Gittinger <cg@exept.de> parents: 5214 diff changeset	8584	that's a ResourcePack containing national language strings"
3c4682d4b409 comment only Claus Gittinger <cg@exept.de> parents: 5214 diff changeset	8585
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	8586	^ resources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	8587
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	8588	"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	8589	!
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	8590
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8591	sizeFixed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8592	"return true, if this vew wants its size to remain unchanged.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8593	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	8594
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8595	^ false
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	"Created: 17.9.1995 / 20:29:20 / claus"
3901 88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	8598	!
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	8599
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	8600	tabRequiresControl
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	8601	"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	8602	The default is true for editTextView, false for other widgets,
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	8603	to allow for easier text entry"
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	8604
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	8605	^ false
4191 7f999428c830 * empty log message * ca parents: 4189 diff changeset	8606	!
7f999428c830 * empty log message * ca parents: 4189 diff changeset	8607
7f999428c830 * empty log message * ca parents: 4189 diff changeset	8608	window
7f999428c830 * empty log message * ca parents: 4189 diff changeset	8609	"for compatibility with applicationModels ... return the receiver"
7f999428c830 * empty log message * ca parents: 4189 diff changeset	8610
7f999428c830 * empty log message * ca parents: 4189 diff changeset	8611	^ self
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8612	! !
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8613
5202 966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	8614	!SimpleView methodsFor:'queries-delegation'!
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	8615
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	8616	handlesMouseWheelMotion:event inView:aView
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	8617	"we do not handle delegated mousewheel events - subclasses may handle them"
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	8618
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	8619	^ false
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	8620	! !
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	8621
3266 4db6dd90cc17 category change Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	8622	!SimpleView methodsFor:'queries-events'!
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8623
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8624	buttonMotionEventPending
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8625	"return true, if a button motion event is pending.
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8626	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	8627	(not even for mouse-tracking).
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8628	Actually, its a historical leftover"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8629
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8630	windowGroup notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8631	^ windowGroup sensor hasButtonMotionEventFor:self
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8632	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8633	^ super buttonMotionEventPending
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8634
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8635	"Modified: 1.11.1996 / 17:04:38 / cg"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8636	! !
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	8637
3266 4db6dd90cc17 category change Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	8638	!SimpleView methodsFor:'queries-internal'!
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8639
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8640	nativeWindowType
1702 ba153bb6400b * empty log message * Claus Gittinger <cg@exept.de> parents: 1699 diff changeset	8641	"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	8642	(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	8643
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8644	^ nil
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8645	!
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8646
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8647	specClass
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8648	"fallback - heuristics to get a specClass for some viewClass.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8649	Based upon my className, look for a corresponding Spec-class.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8650	If there is none, return ArbiraryComponentSpec as a fallBack"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8651
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8652	\|myClass myName cls\|
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8653
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8654	myClass := self class.
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8655	(myClass == View or:[myClass == SimpleView]) ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8656	^ ViewSpec "/ CompositeSpecCollection
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8657	].
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8658
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8659	"/ try: appending 'Spec' to my classes name
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	8660
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8661	myName := self class name.
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8662	cls := Smalltalk classNamed:(myName , 'Spec').
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8663	cls notNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8664	cls := cls autoload.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8665	(cls isSubclassOf:UISpecification) ifTrue:[^ cls].
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8666	].
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8667
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8668	(myName endsWith:'View') ifTrue:[
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8669	"/ "/ try name without 'View'
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8670	"/ cls := Smalltalk classNamed:(myName copyWithoutLast:4).
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8671	"/ cls notNil ifTrue:[
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8672	"/ cls := cls autoload.
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8673	"/ (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8674	"/ ].
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8675
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8676	"/ try with 'View' replaced by 'Spec'
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8677	cls := Smalltalk classNamed:((myName copyWithoutLast:4) , 'View').
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8678	cls notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8679	cls := cls autoload.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8680	(cls isSubclassOf:UISpecification) ifTrue:[^ cls].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8681	]
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8682	].
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8683
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	8684	"/ fall back for all others
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8685	^ ArbitraryComponentSpec
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8686
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8687
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8688	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8689	FramedBox new specClass
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	8690	"
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	8691
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8692	"Modified: / 31.10.1997 / 19:44:55 / cg"
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8693	!
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8694
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8695	windowStyle
3715 70eea03a8d8d comment Claus Gittinger <cg@exept.de> parents: 3711 diff changeset	8696	"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	8697
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8698	self isPopUpView ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8699	^ #popUp
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	8700	].
4501 0455a5453085 * empty log message * Claus Gittinger <cg@exept.de> parents: 4499 diff changeset	8701	self isMDIChildView ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8702	^ #mdiChild
4501 0455a5453085 * empty log message * Claus Gittinger <cg@exept.de> parents: 4499 diff changeset	8703	].
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8704	^ #normal
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8705
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8706	"Created: 2.5.1997 / 14:29:48 / cg"
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	8707	"Modified: 2.5.1997 / 14:30:14 / cg"
4494 5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	8708	!
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	8709
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	8710	windowType
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	8711	"return a symbol describing my type (one of: #mdichild or nil)"
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	8712
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	8713	^ nil
140 0db355079dc4 . claus parents: 138 diff changeset	8714	! !
0db355079dc4 . claus parents: 138 diff changeset	8715
0db355079dc4 . claus parents: 138 diff changeset	8716	!SimpleView methodsFor:'realization'!
0db355079dc4 . claus parents: 138 diff changeset	8717
5602 eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	8718	activate
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	8719	"noop for protocol compatibility with TopViews (in case you do a Button new open)"
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	8720
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	8721	"Created: / 17-09-2010 / 16:30:24 / cg"
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	8722	"Modified: / 17-09-2010 / 18:39:35 / cg"
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	8723	!
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	8724
3459 d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	8725	closeCancel
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	8726	"for protocol compatibility with modal dialogs"
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	8727
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	8728	self hideRequest
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	8729	!
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	8730
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8731	create
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8732	"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	8733	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	8734
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8735	drawableId isNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8736	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8737	make certain that superview is created also
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8738	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8739	superView notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8740	superView view create.
269 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	"/ "and put my controller into the superviews controller list"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8743	"/ controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8744	"/ superView controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8745	"/ controller manager:(superView controller manager)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8746	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8747	"/ ]
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8748	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8749	"/
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8750	"/ if the display is not already dispatching events,
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8751	"/ this starts the event process.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8752	"/
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8753	device startDispatch
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8754	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8755
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8756	cursor notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8757	cursor := cursor onDevice:device.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8758	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8759
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8760	self extentChangedBeforeCreatedFlag ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8761	"/ this is true, if the extent was changed before
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8762	"/ this view was created (and therefore, no sizeChangeEvent
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8763	"/ was sent to me, which would notify children.)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8764	"/ have to do this here.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8765	self sizeChanged:nil. "/ must tell children (if any)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8766	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8767	self hasExplicitExtent ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8768	self resize
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8769	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8770
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8771	self physicalCreate.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8772
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8773	viewBackground notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8774	self setViewBackground
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8775	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8776
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8777	self initEvents.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8778
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8779	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8780	this is the first create,
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8781	force sizechange messages to be sent to the view
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8782	"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	8783	self originChangedFlag:true extentChangedFlag:true
151 8123ec03c52f . claus parents: 145 diff changeset	8784	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	8785
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1490 diff changeset	8786	"Modified: 28.3.1997 / 13:50:17 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	8787	!
8123ec03c52f . claus parents: 145 diff changeset	8788
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8789	createWithAllSubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8790	"create, then create all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8791
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8792	drawableId isNil ifTrue:[self create].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8793	subViews notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8794	subViews do:[:subView \| subView createWithAllSubViews]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8795	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8796	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8797
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8798	fetchDeviceResources
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8799	"fetch all device specific resources. This is invoked,
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8800	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	8801	time, to allocate device specific colors, fonts, bitmaps etc.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8802	The view may keep those in instance variables, to avoid reallocating
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8803	those with every redraw.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8804	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	8805	but possibly slower, since resources are reallocated over and over.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8806	If you redefine this method, make certain that 'super fetchDeviceResources'
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8807	is always sent."
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8808
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	8809	shadowColor notNil ifTrue:[shadowColor := shadowColor onDevice:device].
c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	8810	lightColor notNil ifTrue:[lightColor := lightColor onDevice:device].
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8811
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8812	"Created: 13.1.1997 / 21:51:59 / cg"
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8813	!
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	8814
140 0db355079dc4 . claus parents: 138 diff changeset	8815	fixSize
0db355079dc4 . claus parents: 138 diff changeset	8816	"This is called right before the view is made visible.
0db355079dc4 . claus parents: 138 diff changeset	8817	Adjust the size of the view according to either relative/abs or
0db355079dc4 . claus parents: 138 diff changeset	8818	block extent; also set origin. Also, subclasses may redefine this
0db355079dc4 . claus parents: 138 diff changeset	8819	method to adjust the size based on some extent (for example, PopUpMenus
0db355079dc4 . claus parents: 138 diff changeset	8820	do so to take care of changed number of menu entries)."
0db355079dc4 . claus parents: 138 diff changeset	8821
151 8123ec03c52f . claus parents: 145 diff changeset	8822	\|org ext r\|
8123ec03c52f . claus parents: 145 diff changeset	8823
8123ec03c52f . claus parents: 145 diff changeset	8824	"
8123ec03c52f . claus parents: 145 diff changeset	8825	slowly migrating to use layoutObjects ...
8123ec03c52f . claus parents: 145 diff changeset	8826	"
8123ec03c52f . claus parents: 145 diff changeset	8827	layout notNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8828	superView notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8829	(self originOrExtentOrCornerChanged) ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8830	r := (layout rectangleRelativeTo:(superView viewRectangle)
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8831	preferred:[self preferredBounds]).
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8832	org := r origin rounded.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8833	ext := r extent rounded.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8834	self pixelOrigin:org extent:ext.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8835	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8836	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8837	^ self.
151 8123ec03c52f . claus parents: 145 diff changeset	8838	].
8123ec03c52f . claus parents: 145 diff changeset	8839
140 0db355079dc4 . claus parents: 138 diff changeset	8840	"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	8841	"/ self extentChangedFlag ifTrue:[
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	8842	"/ self sizeChanged:nil.
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8843	"/ self extentChangedFlag:false
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	8844	"/ ].
140 0db355079dc4 . claus parents: 138 diff changeset	8845
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	8846	self originChangedFlag ifTrue:[
140 0db355079dc4 . claus parents: 138 diff changeset	8847	"/ org := self computeOrigin.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8848	"/ self pixelOrigin:org.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8849	originRule notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8850	self pixelOrigin:self computeOrigin
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8851	] ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8852	relativeOrigin notNil ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8853	self originFromRelativeOrigin:relativeOrigin
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8854	] ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8855	shown ifTrue:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8856	device moveWindow:drawableId x:left y:top.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8857	] ifFalse:[
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8858	self pixelOrigin:left@top
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8859	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8860	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8861	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8862	self originChangedFlag:false
140 0db355079dc4 . claus parents: 138 diff changeset	8863	]
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	8864
f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	8865	"Modified: 18.6.1996 / 21:44:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	8866	!
0db355079dc4 . claus parents: 138 diff changeset	8867
4853 86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	8868	forceResize
86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	8869	"force resizing - even if already done"
86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	8870
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	8871	self explicitExtent:false.
4853 86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	8872	self resize
86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	8873	!
86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	8874
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8875	hide
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8876	"only useful with modal views: hide the view and return control
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8877	back to the suspended main view. Ignored for non-modal views."
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8878
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	8879	\|masterGroup\|
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8880
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8881	realized ifFalse:[^ self].
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	8882	(windowGroup notNil and:[windowGroup isModal]) ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8883	masterGroup := windowGroup previousGroup.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8884	windowGroup focusView:nil.
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	8885	].
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8886
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8887	self unmap.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8888	device flush.
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	8889
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	8890	masterGroup notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8891	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8892	this is a kludge for IRIS and others which do not provide backingstore:
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8893	when we hide a modalbox (such as a searchbox) which covered
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8894	a scrollbar, the scrollbars bitblt-method will copy from the
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8895	not-yet redrawn area - effectively clearing the scroller.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8896	We need a short delay here, since at this time, the expose event has
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8897	not yet arrived.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8898	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8899	Delay waitForSeconds:0.05.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8900	masterGroup processExposeEvents
2576 96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	8901	].
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	8902
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	8903	"/ WindowGroup leaveSignal raise.
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	8904	"/ "/ not reached
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	8905	"/ ^ self
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8906	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8907
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	8908	hideForAction
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	8909	"for popUpMenu compatibility;
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	8910	this is invoked to hide a when it is going to perform its action
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	8911	(in contrast to the generic hide)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	8912
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	8913	^ self hide
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	8914	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	8915
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8916	hideRequest
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8917	"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	8918	ignored here."
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8919
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	8920	self isPopUpView ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	8921	self hide
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	8922	].
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8923	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8924	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	8925
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8926	map
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8927	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8928	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	8929	views position on the screen.
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	8930	Notice:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8931	Actually, this method is only valid for topViews;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8932	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	8933
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8934	self mapAt:nil iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8935
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8936	"Modified: 24.7.1997 / 13:44:25 / cg"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8937	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8938
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8939	mapAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	8940	"make the view visible on the screen.
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8941	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	8942	(unless you have a dictator as windowManager ;-)
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	8943	Notice:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8944	Actually, this method is only valid for topViews;
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	8945	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	8946
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8947	self mapAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8948
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8949	"Modified: 24.7.1997 / 13:45:02 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8950	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8951
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8952	mapAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8953	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8954	For topViews, if aPoint is nonNil, the views origin is located there
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	8955	(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	8956	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	8957	Notice:
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8958	Actually, this method is only valid for topViews;
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8959	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	8960
1809 fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	8961	\|subs\|
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	8962
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8963	realized ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8964	drawableId isNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8965	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8966	first time ?
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8967	yes, realize (implies a map)
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8968	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8969	self realizeKeepingGroup:false at:aPoint iconified:iconified
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8970	] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8971	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8972	no, map only
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8973	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8974	realized := true.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8975	aPoint isNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8976	iconified ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8977	device
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8978	mapView:self id:drawableId iconified:iconified
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8979	atX:0 y:0
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8980	width:width height:height
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8981	minExtent:(self minExtent) maxExtent:(self maxExtent).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8982	] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8983	device mapWindow:drawableId.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8984	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8985	] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8986	left := aPoint x.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8987	top := aPoint y.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8988	device
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8989	mapView:self id:drawableId iconified:iconified
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8990	atX:left y:top
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8991	width:width height:height
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8992	minExtent:(self minExtent) maxExtent:(self maxExtent).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8993	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8994
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8995	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8996	"/ implies that all realized subviews
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8997	"/ are now also mapped
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8998	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8999	"/ not needed for topViews - the mapped event does exactly the same
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9000	"/ however, X does not generate mapped events for non-topViews
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9001	"/ when a view gets deiconified.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9002
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9003	superView notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9004	(subs := self subViews) notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9005	subs do:[:v \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9006	v realized "shown" ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9007	v mapped
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9008	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9009	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9010	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9011	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9012	].
140 0db355079dc4 . claus parents: 138 diff changeset	9013	]
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9014
1039 ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	9015	"Modified: 23.8.1996 / 14:53:55 / stefan"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9016	"Created: 24.7.1997 / 13:43:23 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9017	"Modified: 24.7.1997 / 13:46:21 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9018	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9019
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9020	mapIconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9021	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9022	For topViews, the view is created in iconified state"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9023
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9024	self mapAt:nil iconified:true
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9025
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9026	"Modified: 24.7.1997 / 13:44:25 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9027	"Created: 24.7.1997 / 13:47:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	9028	!
0db355079dc4 . claus parents: 138 diff changeset	9029
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9030	physicalCreate
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9031	"common code for create & recreate:
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9032	physically create (but do not map) the view on the device."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9033
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	9034	\|sv isInputOnly\|
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9035
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9036	sv := superView isNil ifTrue:[superView] ifFalse:[superView view].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9037
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	9038	"/ give global eventListeners a chance to intercept windowCreation
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	9039	"/ 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	9040	WindowSensor preViewCreateNotification:self.
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	9041
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	9042	isInputOnly := self isInputOnly.
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	9043
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9044	drawableId := device
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9045	createWindowFor:self
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9046	type:(self windowType)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9047	origin:(left @ top)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9048	extent:(width @ height)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9049	minExtent:nil
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9050	maxExtent:nil
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9051	borderWidth:0 "self borderWidth"
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9052	subViewOf:sv
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9053	style:(self windowStyle)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9054	inputOnly:isInputOnly
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9055	label:nil
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9056	owner:nil
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9057	icon:nil iconMask:nil
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9058	iconView:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9059
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9060	Lobby registerChange:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	9061
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	9062	"/ if there is a global eventListener,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	9063	"/ give it a chance to track views
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	9064
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	9065	"/ give global listeners a chance to track views
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	9066	WindowSensor postViewCreateNotification:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	9067
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9068	self originChangedFlag:false extentChangedFlag:false.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9069
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	9070	"/ (borderColor notNil and:[borderColor ~= Black]) ifTrue:[
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	9071	"/ isInputOnly ifFalse:[
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	9072	"/ self setBorderColor
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	9073	"/ ]
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	9074	"/ ].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9075	(viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9076	device setWindowGravity:viewGravity in:drawableId
269 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	(bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9079	isInputOnly ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9080	device setBitGravity:bitGravity in:drawableId
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9081	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9082	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9083	viewShape notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9084	self setViewShape
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	(backed notNil and:[backed ~~ false]) ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9087	device setBackingStore:backed in:drawableId
3152 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	self saveUnder ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9090	device setSaveUnder:true in:drawableId
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9091	].
1960 aa9ef6e21f15 * empty log message * Claus Gittinger <cg@exept.de> parents: 1943 diff changeset	9092	cursor notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9093	self setCursor
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	9094	].
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	9095
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9096	name notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9097	device setWindowName:name in:drawableId.
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9098	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9099
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	9100	"Modified: / 9.4.1998 / 20:18:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9101	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9102
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9103	postRealize
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9104	"invoked after a view was realized.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9105	Can be redefined in subclasses to perform delayed actions."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9106
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9107	"/ nothing done here
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9108
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9109	"Created: 24.7.1997 / 14:35:36 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9110	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9111
4126 34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9112	preRealize
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9113	"invoked right before a view is realized.
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9114	Can be redefined in subclasses to perform delayed actions."
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9115
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9116	"/ nothing done here
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9117
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9118	"Created: 24.7.1997 / 14:35:36 / cg"
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9119	!
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9120
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9121	realize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9122	"realize - make visible;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9123	realizing is done very late (after layout is fixed) to avoid
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9124	visible rearranging of windows on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9125
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9126	self realizeKeepingGroup:false at:nil iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9127
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9128	"Modified: 24.7.1997 / 13:14:28 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9129	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9130
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9131	realizeAllSubViews
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9132	"realize all my subviews - but not myself."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9133
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9134	subViews notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9135	subViews do:[:subView \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9136	subView realize
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9137	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9138	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9139	components notNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9140	components do:[:component \|
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9141	component realize
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9142	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9143	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9144
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9145	"Modified: 5.9.1995 / 23:30:47 / claus"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9146	"Modified: 13.1.1997 / 21:25:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9147	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9148
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9149	realizeAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9150	"realize - make visible;
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9151	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	9152	visible rearranging of windows on the screen"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9153
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9154	self realizeKeepingGroup:false at:aPoint iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9155
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9156	"Modified: 24.7.1997 / 13:14:28 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9157	"Created: 24.7.1997 / 13:21:04 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9158	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9159
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9160	realizeInGroup
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9161	"special realize - leave windowgroup as is;
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9162	This allows a view to be realized in any windowgroup;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9163	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	9164	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	9165
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9166	windowGroup isForModalSubview:true.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9167	"/ self realize.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9168
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9169	self realizeKeepingGroup:true at:nil iconified:false
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9170
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9171	"Modified: 20.8.1997 / 14:56:20 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9172	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9173
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9174	realizeKeepingGroup:keepGroupAsIs at:position iconified:iconified
151 8123ec03c52f . claus parents: 145 diff changeset	9175	"common helper for realize and realizeInGroup.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9176	Create the view; if the keepGroupAsIs argument is not true,
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9177	assign my windowGroup."
140 0db355079dc4 . claus parents: 138 diff changeset	9178
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9179	\|superGroup groupChange keep\|
140 0db355079dc4 . claus parents: 138 diff changeset	9180
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9181	"/ fetch device colors, to avoid reallocation at redraw time
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9182	self fetchDeviceResources.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9183
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	9184	drawableId isNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9185	self create.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9186	drawableId isNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9187	('SimpleView [warning]: could not create view: ' , self class name) errorPrintCR.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9188	^ self
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9189	]
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	9190	].
140 0db355079dc4 . claus parents: 138 diff changeset	9191
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	9192	groupChange := false.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9193
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9194	(windowGroup notNil
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9195	and:[superView isNil
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	9196	and:[windowGroup isForModalSubview]]) ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9197	keep := true.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9198	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9199	keep := keepGroupAsIs
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9200	].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9201
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	9202	keep ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9203	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9204	put myself into superviews windowgroup if there is a superview
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9205	This is the default behavior, which may be suppressed by
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9206	passing true as keepGroupAsIs-argument.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9207	(it may be useful to assign a separate windowGroup to
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9208	a childView to have it execute independent of the parent
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9209	-> an example is found in the fileBrowsers kill-button)
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9210	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9211	superView notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9212	superGroup := superView windowGroup.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9213	(windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9214	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9215	mhmh - seems that the windowgroup has changed ....
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9216	"
145 ac7088b0aee5 . claus parents: 144 diff changeset	9217	"/ 'oops - wgroup change on realize' printNL.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9218	groupChange := true.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9219
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9220	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9221	"/ recursively change the windowGroup of
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9222	"/ myself and all of my children
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9223	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9224	self windowGroup:superGroup.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9225	] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9226	windowGroup isNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9227	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9228	"/ only change the group of myself -
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9229	"/ subviews will fetch it when realized.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9230	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9231	windowGroup := superGroup.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9232	superGroup notNil ifTrue:[superGroup addView:self].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9233	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9234	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9235	].
140 0db355079dc4 . claus parents: 138 diff changeset	9236	].
0db355079dc4 . claus parents: 138 diff changeset	9237
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9238	(self originOrExtentChanged) ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9239	self fixSize.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9240	self sizeChanged:nil.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9241	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9242	position notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9243	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	9244	].
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	9245
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	9246	(subViews notNil or:[components notNil]) ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9247	(realized not or:[groupChange]) ifTrue:[
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	9248	self isHiddenOnRealize ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9249	self realizeAllSubViews.
2558 9639b8a1c166 do not realize children if inVisible. tm parents: 2549 diff changeset	9250	].
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9251	].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9252	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	9253
4126 34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9254	self preRealize.
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	9255
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9256	iconified ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9257	realized ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9258	self mapIconified
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9259	]
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9260	] ifFalse:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9261	(self isHiddenOnRealize not
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9262	and:[visibilityChannel isNil or:[visibilityChannel value]]) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9263	self setInnerClip.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9264
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9265	realized ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9266	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9267	now, make the view visible
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9268	"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9269	self mapAt:position
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9270	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9271	]
140 0db355079dc4 . claus parents: 138 diff changeset	9272	].
0db355079dc4 . claus parents: 138 diff changeset	9273
0db355079dc4 . claus parents: 138 diff changeset	9274	controller notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9275	controller startUp
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9276	].
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9277
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9278	self postRealize
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9279
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	9280	"Modified: / 23.8.1996 / 15:07:16 / stefan"
86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	9281	"Created: / 24.7.1997 / 13:10:17 / cg"
86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	9282	"Modified: / 27.7.1998 / 20:01:02 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	9283	!
0db355079dc4 . claus parents: 138 diff changeset	9284
0db355079dc4 . claus parents: 138 diff changeset	9285	recreate
3301 1bcebb26ecbb * empty log message * Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	9286	"recreate (i.e. tell X about me) after a snapin or a migration"
140 0db355079dc4 . claus parents: 138 diff changeset	9287
0db355079dc4 . claus parents: 138 diff changeset	9288	drawableId isNil ifTrue:[
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9289	super recreate.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9290	self physicalCreate.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9291
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9292	viewBackground notNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9293	self setViewBackground
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9294	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9295
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9296	"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9297	XXX has to be changed: eventmasks are device specific -
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9298	XXX will not allow restart on another Workstation-type.
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9299	XXX event masks must become symbolic
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9300	"
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9301	eventMask isNil ifTrue:[
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9302	eventMask := device defaultEventMask
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9303	].
968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	9304	device setEventMask:eventMask in:drawableId
140 0db355079dc4 . claus parents: 138 diff changeset	9305	]
0db355079dc4 . claus parents: 138 diff changeset	9306	!
0db355079dc4 . claus parents: 138 diff changeset	9307
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9308	remap
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9309	"make the view visible on the screen at its previous position.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9310	In contrast to map, this asks the windowManager to show the view
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9311	immediately (instead of asking for a frame). However, some windowManagers
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9312	are known to ignore this ..."
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9313
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9314	realized ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9315	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9316	now, make the view visible
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9317	"
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9318	realized := true.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9319	device
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9320	mapView:self id:drawableId iconified:false
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9321	atX:left y:top width:width height:height
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9322	minExtent:(self minExtent) maxExtent:(self maxExtent)
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9323	]
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9324
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9325	"Created: 8.5.1996 / 09:33:06 / cg"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	9326	"Modified: 25.2.1997 / 22:44:33 / cg"
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9327	!
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9328
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	9329	rerealize
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	9330	"rerealize at old position in (a possibly different) windowGroup."
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	9331
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9332	self fetchDeviceResources.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9333
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9334	self rerealizeInGroup:windowGroup.
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	9335
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	9336	"Created: 7.11.1996 / 16:27:09 / cg"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9337	"Modified: 13.1.1997 / 21:53:18 / cg"
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	9338	!
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	9339
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9340	rerealizeInGroup:aWindowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9341	"rerealize at old position in (a possibly different) windowGroup."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9342
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	9343	drawableId isNil ifTrue:[self create].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9344	drawableId notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9345	aWindowGroup ~~ windowGroup ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9346	windowGroup notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9347	windowGroup removeView:self
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9348	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9349	windowGroup := aWindowGroup.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9350	aWindowGroup addTopView:self.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9351	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9352	self remap.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9353	]
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	9354
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	9355	"Modified: 3.5.1996 / 23:59:30 / stefan"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	9356	"Modified: 28.7.1997 / 18:53:01 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	9357	!
0db355079dc4 . claus parents: 138 diff changeset	9358
0db355079dc4 . claus parents: 138 diff changeset	9359	rerealizeWithAllSubViews
0db355079dc4 . claus parents: 138 diff changeset	9360	"rerealize myself with all subviews"
0db355079dc4 . claus parents: 138 diff changeset	9361
0db355079dc4 . claus parents: 138 diff changeset	9362	drawableId notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9363	realized := true.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9364	self realizeAllSubViews.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9365	superView isNil ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9366	device
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9367	mapView:self id:drawableId iconified:false
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9368	atX:left y:top width:width height:height
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9369	minExtent:(self minExtent) maxExtent:(self maxExtent)
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9370	] ifFalse:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9371	device
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9372	mapWindow:drawableId
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9373	].
140 0db355079dc4 . claus parents: 138 diff changeset	9374	]
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	9375
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	9376	"Modified: 28.1.1997 / 17:59:28 / cg"
180 0b3a8658d55e . claus parents: 176 diff changeset	9377	!
0b3a8658d55e . claus parents: 176 diff changeset	9378
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9379	resize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9380	"resize myself to make everything fit into me.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9381	Here, nothing special is done (except for setting my extent to the
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	9382	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	9383
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	9384	self hasExplicitExtent ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9385	layout isNil ifTrue:[
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9386	self extent:(self preferredExtent).
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9387	self explicitExtent:false.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9388	].
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	9389	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	9390
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	9391	"Modified: 15.7.1996 / 11:20:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9392	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9393
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9394	unmap
2576 96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	9395	"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	9396
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9397	realized ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9398	realized := false.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9399	drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9400	device unmapWindow:drawableId.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9401
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9402	"/ make it go away immediately
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9403	"/ (this hides the subview killing)
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9404	device flush.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9405	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9406
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9407	"/ Normally, this is not correct with X, where the
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9408	"/ unmap is an asynchronous operation.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9409	"/ (shown is cleared also in unmapped event)
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9410	"/ Do it anyway, to avoid synchronisation problems.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9411
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9412	shown ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9413	shown := false.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9414	self changed:#visibility.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9415	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9416	].
190 4c49bdd5b80f . claus parents: 189 diff changeset	9417
4c49bdd5b80f . claus parents: 189 diff changeset	9418	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9419	\|top sub\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9420
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9421	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9422	top extent:200@200.
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	sub := View
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9425	origin:0.2@0.2
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9426	corner:0.8@0.8
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9427	in:top.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9428
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9429	sub viewBackground:Color red.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9430	sub hiddenOnRealize:true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9431
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9432	top open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9433	(Delay forSeconds:5) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9434	sub map.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9435	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9436	sub unmap.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9437	sub viewBackground:(Color green).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9438	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9439	sub map.
151 8123ec03c52f . claus parents: 145 diff changeset	9440	"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	9441
2465 193a96bd94d7 clear shown when unmapped notification arrives Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	9442	"Modified: / 22.2.1999 / 20:10:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9443	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9444
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9445	unrealize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9446	"alias for unmap, for historic reasons"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9447
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	9448	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	9449
4464 58adfdb1f1d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 4463 diff changeset	9450	self obsoleteMethodWarning:'use #unmap'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9451	self unmap.
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	9452
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	9453	"Modified: 4.5.1996 / 00:07:48 / stefan"
151 8123ec03c52f . claus parents: 145 diff changeset	9454	! !
8123ec03c52f . claus parents: 145 diff changeset	9455
8123ec03c52f . claus parents: 145 diff changeset	9456	!SimpleView methodsFor:'redrawing'!
8123ec03c52f . claus parents: 145 diff changeset	9457
5263 654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	9458	clearExposedAreaInRedraw
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	9459	"return true here, if the exposed area should be cleared here
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	9460	or not. In almost every situation, it makes sense to do so..."
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	9461
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	9462	^ true
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	9463	!
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	9464
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9465	flash
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9466	"flash the view - fill it black, then white, finally
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9467	redraw completely.
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9468	Can be used to wakeup the user :-)
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9469	when problem or warning conditions arise.
2174 dea03b88b1d1 checkin from browser Claus Gittinger <cg@exept.de> parents: 2173 diff changeset	9470	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	9471
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9472	self fill:Black.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9473	Delay waitForSeconds:0.1.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9474	self fill:White.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9475	Delay waitForSeconds:0.1.
2173 0686e9f35817 flash fix Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	9476	self fill:viewBackground.
0686e9f35817 flash fix Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	9477	"/ self clear.
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9478	self invalidate
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9479
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9480	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9481	\|v\|
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9482
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9483	v := View new openAndWait.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9484	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9485	v flash.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9486	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9487	v destroy
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9488	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9489
2174 dea03b88b1d1 checkin from browser Claus Gittinger <cg@exept.de> parents: 2173 diff changeset	9490	"Modified: / 16.7.1998 / 18:46:48 / cg"
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9491	!
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	9492
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9493	invalidate
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9494	"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	9495	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	9496	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	9497	multiple damage rectangles into single redraws.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9498	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	9499	until the receivers windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9500
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9501	shown ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9502	"/ no need to add damage - will get a full-redraw anyway,
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9503	"/ when I will be shown again.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9504	^ self
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9505	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9506	self
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9507	invalidateDeviceRectangle:(Rectangle left:0 top:0 width:width height:height)
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9508	repairNow:false
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	9509
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	9510	"Modified: / 9.11.1998 / 21:04:16 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9511	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9512
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9513	invalidate:aRectangle
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9514	"add a damage to redraw part of the recevier, to its input event queue.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9515	This is preferable to calling redraw directly,
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9516	in that the drawing is done by the views process itself,
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9517	and there is a possibilty to merge multiple damage rectangles into
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9518	single redraws.
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9519	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	9520	intil the receivers windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9521
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9522	shown ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9523	"/ no need to add damage - will get a full-redraw anyway,
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9524	"/ when I will be shown again.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9525	^ self
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9526	].
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	9527	self invalidate:aRectangle repairNow:false
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	9528
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	9529	"Modified: / 9.11.1998 / 21:03:14 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9530	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9531
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9532	invalidate:aRectangle repairNow:doRepairNow
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9533	"add a damage to redraw part of the receiver, to its input event queue.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9534	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	9535	damaged areas right now.
c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	9536	The given rectangle is in logical coordinate space."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9537
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	9538	\|r\|
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	9539
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9540	shown ifFalse:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9541	"/ no need to add damage - will get a full-redraw anyway,
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9542	"/ when I will be shown again.
468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9543	^ self
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9544	].
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9545
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	9546	r := aRectangle.
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	9547	transformation notNil ifTrue:[
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	9548	r := transformation applyTo:r.
4971 d69d04717240 cleaup Claus Gittinger <cg@exept.de> parents: 4970 diff changeset	9549	].
4993 bf54a6128b78 oops - invalidate:repairNow: did not care for transformation ! Claus Gittinger <cg@exept.de> parents: 4990 diff changeset	9550	self invalidateDeviceRectangle:r repairNow:doRepairNow
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9551
2395 93846300ef6f oops Claus Gittinger <cg@exept.de> parents: 2394 diff changeset	9552	"Modified: / 10.11.1998 / 01:55:03 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9553	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9554
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9555	invalidateDeviceRectangle:aRectangle repairNow:doRepairNow
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	9556	"add a damage to redraw part of the receiver, to its input event queue.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9557	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	9558	damaged areas right now.
c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	9559	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	9560
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9561	shown ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9562	"/ no need to add damage - will get a full-redraw anyway,
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9563	"/ when I will be shown again.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9564	^ self
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9565	].
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9566
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	9567	self sensor addDamage:aRectangle view:self.
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9568	doRepairNow ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9569	self repairDamage
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	9570	]
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	9571
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	9572	"Modified: / 10.11.1998 / 01:55:03 / cg"
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	9573	"Created: / 10.11.1998 / 19:02:01 / cg"
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	9574	!
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	9575
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9576	invalidateRepairNow:doRepair
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9577	"add a damage to redraw all of the receiver, to its input event queue.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9578	and (if repairNow is true), force the receiver to repair all of its
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9579	damaged areas right now."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9580
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9581	shown ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9582	"/ no need to add damage - will get a full-redraw anyway,
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9583	"/ when I will be shown again.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9584	^ self
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9585	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9586	self
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9587	invalidateDeviceRectangle:(Rectangle left:0 top:0 width:width height:height)
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9588	repairNow:doRepair
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9589
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9590	"Created: 19.4.1997 / 11:58:04 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9591	"Modified: 19.4.1997 / 12:00:00 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9592	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	9593
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9594	invalidateX:x y:y width:w height:h
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9595	"add a damage to redraw all of the receiver, to its input event queue."
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9596
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9597	shown ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9598	"/ no need to add damage - will get a full-redraw anyway,
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9599	"/ when I will be shown again.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9600	^ self
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9601	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9602	self invalidate:(Rectangle left:x top:y width:w height:h)
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9603	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9604
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9605	invalidateX:x y:y width:w height:h repairNow:doRepair
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9606	"add a damage to redraw all of the receiver, to its input event queue.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9607	and (if repairNow is true), force the receiver to repair all of its
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9608	damaged areas right now."
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9609
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9610	shown ifFalse:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9611	"/ no need to add damage - will get a full-redraw anyway,
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9612	"/ when I will be shown again.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9613	^ self
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	9614	].
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9615	self invalidate:(Rectangle left:x top:y width:w height:h) repairNow:doRepair
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9616	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	9617
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9618	redraw
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	9619	"redraw myself completely - this is sent by redrawX:y:width:height:
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	9620	as a fallback.
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	9621	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	9622	updating regions but instead update everything."
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	9623
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	9624	"Modified: 29.5.1996 / 18:02:52 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9625	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9626
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9627	redraw:aRectangle
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9628	"redraw a part of the view immediately."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9629
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9630	self
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9631	redrawX:(aRectangle left)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9632	y:(aRectangle top)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9633	width:(aRectangle width)
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9634	height:(aRectangle height)
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9635
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9636	"Modified: 19.4.1997 / 11:54:23 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9637	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9638
5250 59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	9639	redrawComponentsIn:aRectangle
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	9640	components notNil ifTrue:[
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9641	components do:[:aComponent \|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9642	\|thisFrame is\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9643
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9644	thisFrame := aComponent bounds.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9645	(thisFrame notNil and:[thisFrame intersects:aRectangle]) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9646	aComponent displayOn:self
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9647	]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9648	]
5250 59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	9649	].
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	9650	!
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	9651
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9652	redrawDeviceX:x y:y width:w height:h
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9653	"have to redraw part of the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9654	The coordinates are in device space - if there is a transformation,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9655	must inverse-transform back to logical coordinates. (since the view thinks
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9656	in its coordinate space)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9657
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9658	\|lx ly lw lh\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9659
2822 b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	9660	transformation isNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9661	lx := x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9662	ly := y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9663	lw := w.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9664	lh := h.
2822 b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	9665	] ifFalse:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9666	lx := transformation applyInverseToX:x.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9667	ly := transformation applyInverseToY:y.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9668	lw := transformation applyInverseScaleX:w.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9669	lh := transformation applyInverseScaleY:h.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9670	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9671	self redrawX:lx y:ly width:lw height:lh
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9672	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9673
151 8123ec03c52f . claus parents: 145 diff changeset	9674	redrawX:x y:y width:w height:h
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9675	"redraw part of myself immediately, given logical coordinates
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9676	(if transformation is nonNil)
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9677	The default here is to redraw everything
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9678	- subclasses usually redefine this, adding more intelligence"
151 8123ec03c52f . claus parents: 145 diff changeset	9679
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	9680	\|area oldClip\|
151 8123ec03c52f . claus parents: 145 diff changeset	9681
8123ec03c52f . claus parents: 145 diff changeset	9682	shown ifFalse:[^ self].
8123ec03c52f . claus parents: 145 diff changeset	9683
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9684	area := Rectangle left:x top:y width:w height:h.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	9685	oldClip := clipRect.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	9686	self clippingRectangle:area.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	9687
5263 654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	9688	self clearExposedAreaInRedraw ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9689	"/ win95 workaround: non-existing bg-pixmap support (obsolete)
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9690	(viewBackground isImageOrForm and:[ device supportsAnyViewBackgroundPixmaps not ]) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9691	self fillRectangleWithViewBackgroundX:x y:y width:w height:h
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9692	] ifFalse:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9693	self clearRectangleX:x y:y width:w height:h.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9694	]
5542 273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9695	].
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9696
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9697	self renderOrRedraw.
5250 59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	9698
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	9699	"/ draw them afterwards - they can be used to replace heavy-weight views.
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	9700	self redrawComponentsIn:area.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	9701	self clippingRectangle:oldClip.
cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	9702
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9703	"Modified: 19.4.1997 / 11:55:08 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9704	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9705
5542 273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9706	renderOrRedraw
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9707	renderer notNil ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9708	"/ experimental feature
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9709	thisContext isRecursive ifTrue:[self halt].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9710	renderer render:self on:self at:0@0
5542 273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9711	] ifFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9712	"/ redraw everything - a fallBack for lazy views.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9713	self redraw.
5542 273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9714	].
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9715	!
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	9716
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9717	repairDamage
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9718	"force the receiver to repair all of its
2095 7aaac9675f97 checkin from browser ca parents: 2094 diff changeset	9719	damaged areas right now."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9720
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9721	\|wg\|
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9722
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9723	shown ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9724	(wg := self windowGroup) notNil ifTrue:[
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9725	"/ wg processRealExposeEventsFor:self. "/ this ignores map/unmap
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9726	wg processExposeEventsFor:self. "/ this handles map/unmap
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9727	]
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9728	]
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	9729
2138 1800e9b5afe3 also handle map/unmap events in repairDamage. Claus Gittinger <cg@exept.de> parents: 2130 diff changeset	9730	"Created: / 19.4.1997 / 12:01:13 / cg"
2406 8f6f579901ac checkin from browser Claus Gittinger <cg@exept.de> parents: 2405 diff changeset	9731	"Modified: / 3.12.1998 / 14:02:06 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	9732	!
8123ec03c52f . claus parents: 145 diff changeset	9733
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9734	showActive
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9735	"redraw myself as active (i.e. busy).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9736	Nothing done here, but redefined in some classes."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9737
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9738	^ self
135 cf8e46015072 . claus parents: diff changeset	9739	!
cf8e46015072 . claus parents: diff changeset	9740
cf8e46015072 . claus parents: diff changeset	9741	showPassive
cf8e46015072 . claus parents: diff changeset	9742	"redraw myself as inactive (i.e. nonbusy).
151 8123ec03c52f . claus parents: 145 diff changeset	9743	Nothing done here, but redefined in some classes."
135 cf8e46015072 . claus parents: diff changeset	9744
cf8e46015072 . claus parents: diff changeset	9745	^ self
cf8e46015072 . claus parents: diff changeset	9746	! !
cf8e46015072 . claus parents: diff changeset	9747
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9748	!SimpleView methodsFor:'scrolling'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9749
2559 6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9750	halfPageDown
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9751	"scroll down half a page
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9752	"
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9753	self scrollDown:(self innerHeight // 2)
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9754
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9755
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9756	!
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9757
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9758	halfPageUp
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9759	"scroll up half a page
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9760	"
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9761	self scrollUp:(self innerHeight // 2)
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9762
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9763	!
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	9764
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9765	horizontalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9766	"return the amount to scroll when stepping left/right.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9767	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9768
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9769	^ (device horizontalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9770	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9771
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9772	pageDown
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9773	self scrollDown:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9774
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9775	"Created: 13.9.1996 / 14:06:54 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9776	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9777
4964 b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9778	pageLeft
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9779	self scrollLeft:(self innerWidth)
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9780
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9781	"Created: 13.9.1996 / 14:06:54 / cg"
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9782	!
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9783
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9784	pageRight
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9785	self scrollRight:(self innerWidth)
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9786	!
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	9787
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9788	pageUp
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9789	self scrollUp:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9790
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9791	"Created: 13.9.1996 / 14:07:01 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9792	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9793
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9794	scrollDown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9795	"scroll down by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9796	scroll-step down button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9797
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9798	self scrollDown:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9799	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9800
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9801	scrollDown:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9802	"change origin to scroll down some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9803
5572 0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9804	self scrollRelative:nPixels
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9805
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9806	"Modified: / 18-07-2010 / 09:10:47 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9807	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9808
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9809	scrollHorizontalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9810	"change origin to make aPixelOffset be the left col"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9811
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9812	\|orgY\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9813
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9814	orgY := self viewOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9815	^ self scrollTo:(aPixelOffset @ orgY).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9816
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9817	"Modified: 8.7.1996 / 15:34:54 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	9818	!
0db355079dc4 . claus parents: 138 diff changeset	9819
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9820	scrollHorizontalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9821	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9822
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9823	\|wCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9824
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9825	wCont := self widthOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9826	transformation notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9827	wCont := transformation applyScaleX:wCont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9828	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9829	self scrollHorizontalTo:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9830	((((wCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9831	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9832
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9833	scrollLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9834	"scroll left by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9835	scroll-step left button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9836
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9837	self scrollLeft:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9838	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9839
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9840	scrollLeft:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9841	"change origin to scroll left some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9842
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	9843	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	9844
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9845	nPixels ~~ 0 ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9846	viewOrigin := self viewOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9847	self scrollTo:((viewOrigin x - nPixels) @ viewOrigin y).
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9848	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9849
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9850	"Modified: / 20.8.1996 / 17:35:09 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9851	"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	9852	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9853
5572 0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9854	scrollRelative:nPixels
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9855	"change origin to scroll up (nPixels < 0) or down (nPixels > 0)"
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9856
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9857	\|viewOrigin\|
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9858
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9859	nPixels ~~ 0 ifTrue:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9860	viewOrigin := self viewOrigin.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	9861	self scrollTo:(viewOrigin x @ (viewOrigin y + nPixels))
5572 0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9862	]
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9863
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9864	"Modified: / 20-08-1996 / 17:34:36 / stefan"
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9865	"Created: / 18-07-2010 / 09:09:54 / cg"
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9866	!
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9867
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9868	scrollRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9869	"scroll right by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9870	scroll-step right button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9871
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9872	self scrollRight:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9873	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9874
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9875	scrollRight:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9876	"change origin to scroll right some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9877
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	9878	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	9879
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9880	nPixels ~~ 0 ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9881	viewOrigin := self viewOrigin.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9882	self scrollTo:((viewOrigin x + nPixels) @ viewOrigin y)
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9883	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9884
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9885	"Modified: / 20.8.1996 / 17:35:37 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	9886	"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	9887	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9888
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9889	scrollToBottom
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9890	self scrollTo:0 @ (self heightOfContents - self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9891
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9892	"Created: 13.9.1996 / 14:08:03 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9893	"Modified: 13.9.1996 / 14:09:32 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9894	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	9895
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9896	scrollToLeft
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9897	"move viewOrigin to the left"
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9898
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9899	self scrollHorizontalTo:0
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9900	!
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9901
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9902	scrollToPercent:originAsPercent
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9903	"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	9904
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9905	\|wCont hCont percent\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9906
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9907	percent := originAsPercent asPoint.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9908
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9909	wCont := self widthOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9910	hCont := self heightOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9911
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9912	transformation notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9913	wCont := transformation applyScaleX:wCont.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9914	hCont := transformation applyScaleY:hCont.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9915	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9916	self scrollTo:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9917	((((wCont * percent x) / 100.0) + 0.5) asInteger) @
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9918	((((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	9919
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9920	"Created: 5.8.1996 / 12:15:53 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9921	"Modified: 5.8.1996 / 12:42:57 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9922	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9923
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9924	scrollToRight
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9925	"move viewOrigin to the right"
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9926
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9927	\|wCont\|
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9928
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9929	wCont := self widthOfContents.
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9930	transformation notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9931	wCont := transformation applyScaleX:wCont.
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9932	].
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9933	self scrollHorizontalTo:((wCont - self innerWidth) max:0)
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9934
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9935	!
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	9936
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9937	scrollToTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9938	"move viewOrigin to top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9939
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9940	self scrollVerticalTo:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9941	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9942
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9943	scrollToTopLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9944	"move viewOrigin to top/left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9945
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9946	self scrollTo:(0 @ 0).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9947	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9948
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9949	scrollUp
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9950	"scroll up by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9951	scroll-step up button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9952
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9953	self scrollUp:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9954	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9955
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9956	scrollUp:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9957	"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	9958
5572 0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9959	self scrollRelative:nPixels negated
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9960
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	9961	"Modified: / 18-07-2010 / 09:10:59 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9962	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9963
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9964	scrollVerticalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9965	"change origin to make aPixelOffset be the top line"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9966
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9967	\|orgX\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9968
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9969	orgX := self viewOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9970	^ self scrollTo:(orgX @ aPixelOffset).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9971
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	9972	"Modified: 8.7.1996 / 15:35:40 / stefan"
135 cf8e46015072 . claus parents: diff changeset	9973	!
cf8e46015072 . claus parents: diff changeset	9974
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9975	scrollVerticalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9976	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9977
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9978	\|hCont\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9979
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9980	hCont := self heightOfContents.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9981	transformation notNil ifTrue:[
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9982	hCont := transformation applyScaleY:hCont.
140 0db355079dc4 . claus parents: 138 diff changeset	9983	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9984	self scrollVerticalTo:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	9985	((((hCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9986	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9987
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9988	verticalScrollStep
5026 90f01342a59c comment Claus Gittinger <cg@exept.de> parents: 5022 diff changeset	9989	"return the amount to scroll when stepping up/down (also used for mouseWheel).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9990	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9991
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9992	^ (device verticalPixelPerMillimeter * 20) asInteger
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9993	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9994
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9995	widthForScrollBetween:yStart and:yEnd
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9996	"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	9997	- 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	9998	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	9999	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	10000	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	10001	not notice any difference."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10002
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10003	^ (width - margin - margin)
135 cf8e46015072 . claus parents: diff changeset	10004	! !
cf8e46015072 . claus parents: diff changeset	10005
cf8e46015072 . claus parents: diff changeset	10006	!SimpleView methodsFor:'scrolling-basic'!
cf8e46015072 . claus parents: diff changeset	10007
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10008	scrollTo:newOrigin
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10009	"change origin to have newOrigin be visible at the top-left.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10010	The argument defines the integer device coordinates of the new top-left
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10011	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10012
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10013	^ self scrollTo:newOrigin redraw:true
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10014
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10015	"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	10016	"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	10017	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10018
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10019	scrollTo:newOrigin redraw:doRedraw
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10020	"change origin to have newOrigin be visible at the top-left.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10021	The argument defines the integer device coordinates of the new top-left
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10022	point."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10023
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10024	^ self
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10025	scrollTo:newOrigin
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10026	redraw:doRedraw
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10027	allowScrollBeyondContents:false
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10028	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10029
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10030	scrollTo:newOrigin redraw:doRedraw allowScrollBehondContents:allowScrollBehondContents
5214 b87c11b492f5 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 5211 diff changeset	10031	<resource: #obsolete>
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10032	"change origin to have newOrigin be visible at the top-left.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10033	The argument defines the integer device coordinates of the new top-left
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10034	point."
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10035
4295 ed7eb2a750ff * empty log message * Claus Gittinger <cg@exept.de> parents: 4294 diff changeset	10036	self obsoleteMethodWarning:'use #scrollTo:redraw:allowScrollBehondContents:'.
4294 40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	10037	^ self
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10038	scrollTo:newOrigin redraw:doRedraw allowScrollBeyondContents:allowScrollBehondContents
4294 40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	10039	!
40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	10040
40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	10041	scrollTo:newOrigin redraw:doRedraw allowScrollBeyondContents:allowScrollBehondContents
40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	10042	"change origin to have newOrigin be visible at the top-left.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10043	The argument defines the integer device coordinates of the new top-left
4294 40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	10044	point."
40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	10045
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10046	\|dX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10047	dY "{ Class:SmallInteger }"
4520 8e7a5f587df7 * empty log message * Claus Gittinger <cg@exept.de> parents: 4517 diff changeset	10048	orgX
8e7a5f587df7 * empty log message * Claus Gittinger <cg@exept.de> parents: 4517 diff changeset	10049	orgY
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10050	x y iw ih
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10051	hCont wCont fromX toX fromY toY copyWidth copyHeight
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	10052	redrawX redrawY wg\|
135 cf8e46015072 . claus parents: diff changeset	10053
cf8e46015072 . claus parents: diff changeset	10054	hCont := self heightOfContents.
cf8e46015072 . claus parents: diff changeset	10055	wCont := self widthOfContents.
cf8e46015072 . claus parents: diff changeset	10056	transformation isNil ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10057	orgY := orgX := 0
135 cf8e46015072 . claus parents: diff changeset	10058	] ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10059	wCont := (transformation applyScaleX:wCont) rounded.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10060	hCont := (transformation applyScaleY:hCont) rounded.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10061	orgY := transformation translation y negated.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10062	orgX := transformation translation x negated
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10063	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10064
135 cf8e46015072 . claus parents: diff changeset	10065	iw := self innerWidth.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10066	ih := self innerHeight.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10067
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10068	"don't scroll outside of displayed area"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10069
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10070	x := newOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10071	y := newOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10072
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10073	allowScrollBehondContents ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10074	x + iw > wCont ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10075	x := (wCont - iw) asInteger.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10076	].
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10077	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10078	x < 0 ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10079	x := 0
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10080	].
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10081	allowScrollBehondContents ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10082	y + ih > hCont ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10083	y := (hCont - ih) asInteger.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10084	].
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10085	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10086	y < 0 ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10087	y := 0.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10088	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10089
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10090	dX := x - orgX.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10091	dY := y - orgY.
135 cf8e46015072 . claus parents: diff changeset	10092
1066 bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10093	(dX == 0 and:[dY == 0]) ifTrue:[
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10094	^ self
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10095	].
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	10096
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	10097	(wg := self windowGroup) notNil ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10098	wg processRealExposeEventsFor:self.
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	10099	].
2405 95e4a8e563d8 precess expose events before scroll Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	10100
135 cf8e46015072 . claus parents: diff changeset	10101	self originWillChange.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10102	(shown and:[doRedraw]) ifTrue:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10103	copyWidth := iw - dX abs.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10104	copyHeight := ih - dY abs.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10105	((copyWidth > 0) and:[copyHeight > 0]) ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10106	"/ some of the currently displayed pixels
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10107	"/ remain visible. Copy them
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10108
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10109	dX < 0 ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10110	fromX := margin.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10111	toX := margin - dX.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10112	redrawX := margin
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10113	] ifFalse:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10114	fromX := margin + dX.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10115	toX := margin.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10116	redrawX := margin + copyWidth.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10117	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10118	dY < 0 ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10119	fromY := margin.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10120	toY := margin - dY.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10121	redrawY := margin.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10122	] ifFalse:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10123	fromY := margin + dY.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10124	toY := margin.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10125	redrawY := margin + copyHeight.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10126	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10127	self catchExpose.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10128	self setViewOrigin:(x @ y).
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10129	self
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10130	copyFrom:self
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10131	x:fromX y:fromY
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10132	toX:toX y:toY
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10133	width:copyWidth
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10134	height:copyHeight
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10135	async:true.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10136
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10137	self setInnerClip.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10138
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10139	"first redraw the rectangle above/below the
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10140	copied area (with full width)."
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10141
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10142	copyHeight < ih ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10143	self invalidateDeviceRectangle:((margin@redrawY) extent:(iw@(ih - copyHeight))) repairNow:false.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10144	"/ self
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10145	"/ redrawDeviceX:margin y:redrawY
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	10146	"/ width:iw height:(ih - copyHeight).
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10147	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10148
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10149	"second redraw the rectangle left/right of the
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10150	copied area"
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10151
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10152	copyWidth < iw ifTrue:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10153	self invalidateDeviceRectangle:((redrawX@toY) extent:((iw-copyWidth)@copyHeight)) repairNow:false.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10154	"/ self redrawDeviceX:redrawX y:toY
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	10155	"/
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10156	"/ width:iw - copyWidth
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	10157	"/ height:copyHeight.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10158	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10159	self waitForExpose.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10160	] ifFalse:[
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10161	"redraw everything"
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10162
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10163	self setViewOrigin:(x @ y).
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10164	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	10165	"/ 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	10166	"/ width:iw
9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	10167	"/ height:ih.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10168	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10169	] ifFalse:[
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	10170	self setViewOrigin:(x @ y).
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	10171	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	10172
709 6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	10173	self originChanged:(dX negated @ dY negated).
6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	10174
2381 9a365ce57a19 async redraw when scrolling (i.e. invalidate instead of redraw) Claus Gittinger <cg@exept.de> parents: 2376 diff changeset	10175	"Modified: / 5.8.1996 / 11:57:09 / stefan"
2405 95e4a8e563d8 precess expose events before scroll Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	10176	"Modified: / 1.12.1998 / 22:35:18 / cg"
135 cf8e46015072 . claus parents: diff changeset	10177	! !
cf8e46015072 . claus parents: diff changeset	10178
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10179	!SimpleView methodsFor:'startup'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10180
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10181	open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10182	"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	10183	(i.e. the new view comes up as independent process).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10184	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	10185	implemented in TopView), it is implemented here - therefore, every view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10186	can be opened as a topView.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10187	This is redefined in ModalBox, which comes up modal (i.e.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10188	control is under the current process, so that interaction with the
4131 30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	10189	current group is blocked while the modalBox is active).
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	10190
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	10191	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	10192	visible, since #open forks a new process, which does the actual window opening.
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	10193	To ensure visibility, use #openAndWait or waitUntilVisible after the open."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10194
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10195	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10196
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10197	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10198	View new open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10199	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10200
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10201	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10202	(Button label:'hello') open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10203	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10204
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10205	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10206	\|top\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10207	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10208	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10209	Button label:'hello' in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10210	top open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10211	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10212
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10213	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10214	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10215	"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10216
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10217	"Modified: 24.7.1997 / 13:26:42 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10218	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10219
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10220	openAndWait
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10221	"open up the view - wait until it is visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10222	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	10223	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	10224	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10225	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	10226	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	10227	Use this open in those situations."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10228
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10229	self open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10230	self waitUntilVisible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10231
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10232	"does not work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10233
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10234	\|v\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10235
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10236	v := View new open.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10237	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10238
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10239	does work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10240
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10241	\|v\|
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10242
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10243	v := View new openAndWait.
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10244	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10245	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10246	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10247
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10248	openAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10249	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10250
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10251	^self openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10252
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10253	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10254	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10255
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10256	(Button label:'hello') openAt:(100@100)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10257	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10258
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10259	"Modified: 24.7.1997 / 13:26:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10260	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10261
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10262	openAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10263	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10264
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10265	^self openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10266
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10267	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10268	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10269
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10270	(Button label:'hello') openAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10271	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10272
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10273	"Modified: 24.7.1997 / 13:01:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10274	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10275
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10276	openAutonomous
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10277	"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	10278	The view will be handled by its own process, effectively running in
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10279	parallel.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10280	Notice:
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10281	This entry is for NON-topviews, which want to be served
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10282	autonomous from their real topview.
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10283	(see the fileBrowsers kill-button
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10284	when executing unix commands as an example)"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10285
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10286	\|wg mainGroup\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10287
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	10288	wg := self windowGroupClass new.
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	10289	self windowGroup:wg.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10290
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10291	mainGroup := WindowGroup activeGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10292	mainGroup notNil ifTrue:[
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10293	mainGroup := mainGroup mainGroup.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10294	].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10295
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10296	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	10297	wg startupWith:[wg mainGroup:mainGroup. self realizeInGroup].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10298
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10299	"/ wg startupModal:[true] forGroup:mainGroup
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10300	"/ self realizeInGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10301
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10302	"Modified: 20.8.1997 / 17:57:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10303	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10304
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10305	openInGroup:aGroup
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10306	"special open within another windowGroup.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10307	This allows a view to be realized in any windowgroup;
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10308	for applications where multiple views act as a group
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10309	(i.e. close and iconify together)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10310
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10311	self windowGroup:aGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10312	aGroup addTopView:self.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10313
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10314	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10315	aGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10316	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10317	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10318
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10319	openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10320	"create a new windowgroup, but start processing in the current process
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10321	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	10322	Stay in the modalLoop while the view is visible.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10323	(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	10324
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10325	self openModal:[true]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10326
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10327	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10328	the same:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10329	YesNoBox new open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10330
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10331	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10332
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10333	different:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10334	(Button label:'hello') open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10335
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10336	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10337	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10338	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10339
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10340	openModal:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10341	"create a new windowgroup, but start processing in the current process -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10342	actually suspending event processing for the currently active group.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10343	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	10344	visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10345	(i.e. control is returned to the sender when the receiver is closed)
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10346	This makes any interaction with the current window impossible -
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10347	however, other views (in other windowgroups) still work."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10348
5271 228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	10349	\|masterGroup activeGroup\|
228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	10350
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	10351	activeGroup := WindowGroup activeGroup.
9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	10352
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	10353	"/ cg - because we raise that window, we should avoid to raise the main-non-modal view,
5271 228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	10354	"/ if a dialog is opend from another modal view (confirmation in a modal-box)
2167 41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	10355
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	10356	"/ mainGroup := activeGroup.
2167 41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	10357	"/ mainGroup notNil ifTrue:[mainGroup := mainGroup mainGroup].
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	10358
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	10359	"/ masterGroup := activeGroup.
5271 228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	10360	"/ [masterGroup notNil and:[masterGroup isPopUp or:[masterGroup isModal]]] whileTrue:[
228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	10361	"/ masterGroup := masterGroup previousGroup.
228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	10362	"/ ].
228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	10363	^ self openModal:aBlock inGroup:activeGroup "/ masterGroup "/ mainGroup.
2167 41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	10364
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	10365	"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	10366	"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	10367	!
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	10368
5494 c02b3c579300 comment/format in: #openModal: Stefan Vogel <sv@exept.de> parents: 5456 diff changeset	10369	openModal:aBlock inGroup:aWindowGroup
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	10370	"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	10371	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	10372	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	10373	visible.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	10374	(i.e. control is returned to the sender when the receiver is closed)
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10375	This makes any interaction with the current window impossible -
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	10376	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	10377
5494 c02b3c579300 comment/format in: #openModal: Stefan Vogel <sv@exept.de> parents: 5456 diff changeset	10378	\|tops mainView mainViewID previousGroup mainGroup\|
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	10379
1736 f010a521d10d grab and ungrab ca parents: 1726 diff changeset	10380	self isPopUpView ifFalse:[
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10381	"/ the following allows for knowledgable programmers to suppress dialog boxes,
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10382	"/ or to patch common controls right before opening...
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10383	(Dialog aboutToOpenBoxNotificationSignal raiseRequestWith:self) == #abort ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10384	^ self
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10385	].
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10386	"/ the following allows for hooks to add a bell sound or other whenever a dialog opens
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10387	device modalWindowListenersDo:[:listener \| listener aboutToOpenWindow:self].
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10388
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10389	mainView notNil ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10390	mainView activate; setForegroundWindow.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10391	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10392
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10393	ModalBox usingTransientViews ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10394	"make view only transient, if there is a visible topView.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10395	If none of them is visible, we do want an icon for ourself"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10396
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10397	mainViewID isNil ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10398	"/ MULTI SCREEN
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10399	\|monitorBounds\|
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10400
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10401	monitorBounds := device monitorBoundsAt:(device pointerPosition).
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10402	self origin:(monitorBounds center rounded - (self extent//2))
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10403	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10404
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10405	drawableId isNil ifTrue:[self create].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10406	mainView notNil ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10407	device setTransient:drawableId for:mainViewID.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10408	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10409	].
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	10410	].
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	10411
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	10412	self raise.
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	10413
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10414	Processor activeProcessIsSystemProcess ifTrue:[
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10415	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10416	put myself into the modal group, let it handle events for
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10417	me as well. This is only a half way solution, since the view
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10418	is not modal at all ... however, the only situation
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10419	where this happens is with modal boxes popped while in a
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10420	modal browser. You will forgive me for that inconvenience.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10421	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10422	windowGroup := aWindowGroup.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10423	aWindowGroup notNil ifTrue:[aWindowGroup addTopView:self].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10424	self realize
135 cf8e46015072 . claus parents: diff changeset	10425	] ifFalse:[
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10426	previousGroup := WindowGroup activeGroup.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10427
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10428	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10429	show a stop-cursor in the suspended window groups
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10430	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10431	(aWindowGroup notNil and:[self isPopUpView not]) ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10432	mainGroup := aWindowGroup mainGroup.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10433	mainGroup showCursor:(Cursor stop).
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10434	previousGroup ~~ mainGroup ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10435	previousGroup showCursor:(Cursor stop).
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10436	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10437	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10438
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10439	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10440	create a new window group and put myself into it
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10441	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10442	windowGroup := self windowGroupClass new.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10443	windowGroup addTopView:self.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10444	windowGroup setPreviousGroup:previousGroup.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10445
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10446	superView notNil ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10447	"/
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10448	"/ special: this is a modal subview,
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10449	"/ prevent the view from reassigning its windowGroup when realized
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10450	"/ (subviews normaly place themself into the superviews group)
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10451	"/
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10452	windowGroup isForModalSubview:true.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10453	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10454
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10455	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10456	go dispatch events in this new group
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10457	(thus current windowgroup is blocked from interaction)
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10458	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10459	AbortOperationRequest handle:[:ex \|
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10460	AbortOperationRequest handle:[:ex2 \|
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10461	"/ an aborted hide (user confirmation ?)
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10462	self breakPoint:#cg.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10463	ex proceed
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10464	] do:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10465	self hide.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10466	self realized ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10467	"/ self halt. "/ hide handled and closeRequest not wanted:
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10468	ex proceed
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10469	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10470	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10471	] do:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10472	[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10473	[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10474	windowGroup startupModal:[realized and:aBlock] forGroup:aWindowGroup
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10475	] ifCurtailed:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10476	self hide.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10477	]
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10478	] ensure:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10479	aWindowGroup notNil ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10480	aWindowGroup graphicsDevice sync. "thats a round trip - make sure that all drawing has been processed"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10481	"/ ensure that eventListener runs here ...
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10482	Delay waitForSeconds:0.05.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10483	aWindowGroup processExposeEvents.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10484
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10485	ReturnFocusWhenClosingModalBoxes ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10486	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10487	return the input focus to the previously active group's top.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10488	This helps with windowmanagers which need an explicit click
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10489	on the view for the focus.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10490	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10491	tops := aWindowGroup topViews.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10492	(tops notEmptyOrNil) ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10493	tops first getKeyboardFocus
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10494	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10495	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10496
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10497	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10498	restore cursors in the changed groups
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10499	"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10500	mainGroup notNil ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10501	mainGroup restoreCursors.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10502	previousGroup ~~ mainGroup ifTrue:[
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10503	previousGroup restoreCursors.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10504	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10505	].
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10506	]
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10507	]
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	10508	].
135 cf8e46015072 . claus parents: diff changeset	10509	]
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	10510
4654 baa4bc036ec4 drag & drop Claus Gittinger <cg@exept.de> parents: 4652 diff changeset	10511	"Created: / 10-12-1995 / 14:06:14 / cg"
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10512	"Modified: / 24-10-2010 / 15:22:58 / cg"
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10513	!
135 cf8e46015072 . claus parents: diff changeset	10514
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10515	openModalAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10516	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10517	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10518
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10519	self origin:aPoint.
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	10520	drawableId isNil ifTrue:[self create].
560 968d062c79cb oops - openAt did set transient; definitely wrong ... Claus Gittinger <cg@exept.de> parents: 527 diff changeset	10521	"/ device setTransient:drawableId for:0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10522	^ self openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10523
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10524	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10525	View new openModal
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10526	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10527	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10528	View new openModalAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10529	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10530
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10531	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10532	"Modified: 18.9.1995 / 23:32:26 / claus"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	10533	"Modified: 28.7.1997 / 18:52:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10534	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10535
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10536	openModalAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10537	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10538	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10539
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10540	^ self openModalAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10541
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10542	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10543	View new openModal
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10544	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10545	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10546	View new openModalAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10547	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10548
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10549	"Modified: 24.7.1997 / 13:27:37 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10550	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10551
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10552	openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10553	"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	10554	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	10555	parallel (i.e. control is returned to the sender immediately)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10556
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10557	self openModelessAt:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10558
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10559	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10560	the same:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10561	(Button label:'hello') open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10562
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10563	(Button label:'hello') openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10564
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10565	different:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10566	YesNoBox new open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10567
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10568	YesNoBox new openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10569	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10570	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10571	(almost) the same:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10572	YesNoBox new open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10573
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10574	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10575
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10576	different:
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10577	(Button label:'hello') open
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10578
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10579	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10580	"
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	10581
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10582	"Modified: 24.7.1997 / 13:17:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10583	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10584
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10585	openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10586	"open up the view modeless - positions the view
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10587	(i.e. tries to circumvent the window managers positioning)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10588	Notice: some windowManagers seem to ignore this and always
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10589	ask the user to position the view."
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10590
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10591	self openModelessAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10592
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10593	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10594	View new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10595
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10596	View new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10597	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10598
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10599	"Created: 18.9.1995 / 23:21:42 / claus"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10600	"Modified: 24.7.1997 / 13:48:52 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10601	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10602
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10603	openModelessAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10604	"open up the view modeless - positions the view
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10605	(i.e. tries to circumvent the window managers positioning)
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10606	Notice: some windowManagers seem to ignore this and always
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10607	ask the user to position the view."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10608
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10609	\|newGroup\|
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10610
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	10611	drawableId isNil ifTrue:[self create].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10612
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10613	windowGroup isNil ifTrue:[
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10614	newGroup := true.
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10615	windowGroup := self windowGroupClass new.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10616	] ifFalse:[
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10617	newGroup := false.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10618	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10619
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10620	windowGroup addTopView:self.
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10621
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10622	"/ the following allows for hooks to be informed whenever a non-modal view opens
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10623	device nonModalWindowListenersDo:[:listener \| listener aboutToOpenWindow:self].
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10624
3745 8456462f2ac0 code beautifaction Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	10625	newGroup ifTrue:[
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10626	(aPoint isNil and:[iconified not]) ifTrue:[
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10627	windowGroup startupWith:[self realize].
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10628	] ifFalse:[
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10629	windowGroup startupWith:[self realizeKeepingGroup:false at:aPoint iconified:iconified].
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10630	].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10631	] ifFalse:[
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10632	self realizeInGroup.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10633	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10634
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10635	"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10636	StandardSystemView new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10637
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10638	StandardSystemView new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10639
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10640	StandardSystemView new openModelessAt:100@100 iconified:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10641	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10642
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10643	"Created: / 18-09-1995 / 23:21:42 / claus"
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	10644	"Modified: / 24-10-2010 / 15:22:53 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10645	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10646
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10647	openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10648	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10649	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10650
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10651	^ self openModelessAt:(device center - (self extent//2)).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10652
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10653	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10654	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10655
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10656	View new openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10657	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10658
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10659	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10660	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10661
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10662	waitUntilVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10663	"wait until the receiver visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10664	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	10665	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	10666	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10667	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	10668	in doIt expressions), or subsequent views depend on some state of
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10669	another view (which is only available once visible),
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10670	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	10671	Caveat:
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10672	we poll here for the view to be shown - we need a semaphore
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10673	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	10674
a98163edc25b care for #waitUntilVisible to be called from within the event dispatcher Claus Gittinger <cg@exept.de> parents: 3518 diff changeset	10675	\|wg n\|
a98163edc25b care for #waitUntilVisible to be called from within the event dispatcher Claus Gittinger <cg@exept.de> parents: 3518 diff changeset	10676
a98163edc25b care for #waitUntilVisible to be called from within the event dispatcher Claus Gittinger <cg@exept.de> parents: 3518 diff changeset	10677	n := 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10678	[self shown] whileFalse:[
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10679	(device notNil and:[device isOpen not]) ifTrue:[^ self].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10680
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10681	"/ this was added to avoid a deadlock, when called from within
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10682	"/ the event dispatch process (as when doing foo inspect there).
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10683	n > (10 / 0.05) ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10684	'SimpleView [info]: View not visible after 10 seconds - will not wait any longer in waitUntilVisible' infoPrintCR.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10685	^ self
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10686	].
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10687	n := n + 1.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10688	Delay waitForSeconds:0.05.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10689	(wg := self windowGroup) notNil ifTrue:[
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10690	wg processExposeEvents.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10691	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10692	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10693
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10694	"does not work (the view is in its opening phase,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10695	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	10696	its internals are not yet correctly setup):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10697
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10698	\|v\|
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10699
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10700	v := View new open.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10701	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10702
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10703	does work (since we wait until the view has completely finished
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10704	its startup phase):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10705
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10706	\|v\|
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10707
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10708	v := View new open.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10709	v waitUntilVisible.
f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	10710	v displayLineFrom:0@0 to:50@50
5595 05e3cc1b4ba7 changed: #waitUntilVisible Claus Gittinger <cg@exept.de> parents: 5591 diff changeset	10711	"
05e3cc1b4ba7 changed: #waitUntilVisible Claus Gittinger <cg@exept.de> parents: 5591 diff changeset	10712
05e3cc1b4ba7 changed: #waitUntilVisible Claus Gittinger <cg@exept.de> parents: 5591 diff changeset	10713	"Modified: / 08-08-2010 / 14:46:34 / cg"
135 cf8e46015072 . claus parents: diff changeset	10714	! !
cf8e46015072 . claus parents: diff changeset	10715
3276 9ed39f7e7282 category change Claus Gittinger <cg@exept.de> parents: 3266 diff changeset	10716	!SimpleView methodsFor:'user interaction & notifications'!
135 cf8e46015072 . claus parents: diff changeset	10717
cf8e46015072 . claus parents: diff changeset	10718	warn:aString
cf8e46015072 . claus parents: diff changeset	10719	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	10720	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	10721
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10722	super warn:(resources stringWithCRs:aString)
135 cf8e46015072 . claus parents: diff changeset	10723	!
cf8e46015072 . claus parents: diff changeset	10724
cf8e46015072 . claus parents: diff changeset	10725	warn:aString with:argument
cf8e46015072 . claus parents: diff changeset	10726	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	10727	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	10728
4406 09339c622956 * empty log message * Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	10729	super warn:(resources stringWithCRs:aString with:argument)
151 8123ec03c52f . claus parents: 145 diff changeset	10730	!
8123ec03c52f . claus parents: 145 diff changeset	10731
8123ec03c52f . claus parents: 145 diff changeset	10732	warn:aString with:arg1 with:arg2
8123ec03c52f . claus parents: 145 diff changeset	10733	"like Objects warn, but translates the string via the
8123ec03c52f . claus parents: 145 diff changeset	10734	resourcePack, thus giving a translated string automatically"
8123ec03c52f . claus parents: 145 diff changeset	10735
4406 09339c622956 * empty log message * Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	10736	super warn:(resources stringWithCRs:aString with:arg1 with:arg2)
3182 6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	10737	!
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	10738
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	10739	warn:aString with:arg1 with:arg2 with:arg3
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	10740	"like Objects warn, but translates the string via the
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	10741	resourcePack, thus giving a translated string automatically"
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	10742
4406 09339c622956 * empty log message * Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	10743	super warn:(resources stringWithCRs:aString with:arg1 with:arg2 with:arg3)
135 cf8e46015072 . claus parents: diff changeset	10744	! !
cf8e46015072 . claus parents: diff changeset	10745
5340 45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	10746	!SimpleView::AboutToOpenBoxNotificationSignal methodsFor:'accessing'!
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	10747
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	10748	dialogBeingOpened
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	10749	^ parameter
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	10750	! !
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	10751
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	10752	!SimpleView::ViewShape methodsFor:'queries'!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	10753
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10754	isRoundShape
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10755	^ false
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10756	! !
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	10757
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10758	!SimpleView::RoundViewShape methodsFor:'queries'!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10759
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10760	isRoundShape
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10761	^ true
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10762
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10763
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10764	! !
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	10765
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	10766	!SimpleView::ArbitraryViewShape methodsFor:'accessing'!
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	10767
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10768	borderShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10769	"return the value of the instance variable 'borderShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10770
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10771	^ borderShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10772
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10773	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10774	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10775
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10776	borderShapeForm:something
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10777	"set the value of the instance variable 'borderShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10778
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10779	borderShapeForm := something.
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10780
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10781	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10782	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10783
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10784	viewShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10785	"return the value of the instance variable 'viewShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10786
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10787	^ viewShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10788
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10789	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10790	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10791
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10792	viewShapeForm:something
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10793	"set the value of the instance variable 'viewShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10794
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10795	viewShapeForm := something.
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10796
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10797	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	10798	! !
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	10799
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	10800	!SimpleView class methodsFor:'documentation'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10801
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10802	version
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	10803	^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.686 2011-02-01 22:36:56 cg Exp $'
5354 4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	10804	!
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	10805
4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	10806	version_CVS
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	10807	^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.686 2011-02-01 22:36:56 cg Exp $'
135 cf8e46015072 . claus parents: diff changeset	10808	! !
3745 8456462f2ac0 code beautifaction Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	10809
135 cf8e46015072 . claus parents: diff changeset	10810	SimpleView initialize!

author	Claus Gittinger <cg@exept.de>
	Tue, 01 Feb 2011 23:36:56 +0100
changeset 5695	5ab9c2eda29a
parent 5694	745e72a0b8af
child 5703	b2982d12a3ad
permissions	-rw-r--r--