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

135 cf8e46015072 . claus parents: diff changeset	1	"
cf8e46015072 . claus parents: diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 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
6716 e9b2ebb0e8cf class: SimpleView Claus Gittinger <cg@exept.de> parents: 6709 diff changeset	14	"{ NameSpace: Smalltalk }"
e9b2ebb0e8cf class: SimpleView Claus Gittinger <cg@exept.de> parents: 6709 diff changeset	15
727 bf23a306b6f2 renamed PseudoView to DisplaySurface Claus Gittinger <cg@exept.de> parents: 724 diff changeset	16	DisplaySurface subclass:#SimpleView
7465 8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	17	instanceVariableNames:'superView subViews components styleSheet resources border unused
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	18	viewShape top left flagBits relativeOrigin relativeExtent
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	19	relativeCorner originRule extentRule cornerRule insets layout
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	20	shown hiddenOnRealize name level margin innerClipRect shadowColor
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	21	lightColor bitGravity viewGravity controller windowGroup
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	22	preferredExtent explicitExtent dependents layoutManager
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	23	visibilityChannel helpKey dropTarget'
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	24	classVariableNames:'CentPoint DefaultBorderColor DefaultBorderWidth
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	25	DefaultFocusBorderWidth DefaultFocusColor DefaultLightColor
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	26	DefaultShadowColor DefaultStyle DefaultViewBackgroundColor
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	27	FlagBeingDestroyed FlagCanTab FlagCornerChanged
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	28	FlagDoNotRequestFocusOnPointerEnter FlagExtentChanged
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	29	FlagExtentChangedBeforeCreated FlagHasExplicitExtent
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	30	FlagHiddenOnRealize FlagIsMDIChild FlagIsUnmappedModalBox
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	31	FlagNativeWidget FlagOriginChanged FlagRequestFocusOnPointerEnter
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	32	FlagTakeFocusWhenMapped Grey ReturnFocusWhenClosingModalBoxes
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	33	StyleSheet ViewSpacing'
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	34	poolDictionaries:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	35	category:'Views-Basic'
135 cf8e46015072 . claus parents: diff changeset	36	!
cf8e46015072 . claus parents: diff changeset	37
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	38	SimpleView class instanceVariableNames:'ClassResources DefaultFont'
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	39
1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	40	"
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	41	No other class instance variables are inherited by this class.
734 1a778cedbbf5 checkin from browser Claus Gittinger <cg@exept.de> parents: 729 diff changeset	42	"
140 0db355079dc4 . claus parents: 138 diff changeset	43	!
135 cf8e46015072 . claus parents: diff changeset	44
6119 e7de49fefa9a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6117 diff changeset	45	ProceedingNotification subclass:#AboutToOpenBoxNotificationSignal
7465 8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	46	instanceVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	47	classVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	48	poolDictionaries:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	49	privateIn:SimpleView
5293 3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	50	!
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	51
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	52	Object subclass:#ViewShape
7465 8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	53	instanceVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	54	classVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	55	poolDictionaries:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	56	privateIn:SimpleView
3055 3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	57	!
3a001a72cb9b try my bitmaps in package directory Claus Gittinger <cg@exept.de> parents: 3010 diff changeset	58
7127 adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	59	ProceedingNotification subclass:#BoxClosedNotificationSignal
7465 8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	60	instanceVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	61	classVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	62	poolDictionaries:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	63	privateIn:SimpleView
7127 adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	64	!
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	65
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	66	SimpleView::ViewShape subclass:#RoundViewShape
7465 8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	67	instanceVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	68	classVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	69	poolDictionaries:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	70	privateIn:SimpleView
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	71	!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	72
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	73	SimpleView::ViewShape subclass:#ArbitraryViewShape
7465 8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	74	instanceVariableNames:'viewShapeForm borderShapeForm'
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	75	classVariableNames:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	76	poolDictionaries:''
8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	77	privateIn:SimpleView
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	78	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	79
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	80	!SimpleView class methodsFor:'documentation'!
135 cf8e46015072 . claus parents: diff changeset	81
cf8e46015072 . claus parents: diff changeset	82	copyright
cf8e46015072 . claus parents: diff changeset	83	"
cf8e46015072 . claus parents: diff changeset	84	COPYRIGHT (c) 1989 by Claus Gittinger
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	85	All Rights Reserved
135 cf8e46015072 . claus parents: diff changeset	86
cf8e46015072 . claus parents: diff changeset	87	This software is furnished under a license and may be used
cf8e46015072 . claus parents: diff changeset	88	only in accordance with the terms of that license and with the
cf8e46015072 . claus parents: diff changeset	89	inclusion of the above copyright notice. This software may not
cf8e46015072 . claus parents: diff changeset	90	be provided or otherwise made available to, or used by, any
cf8e46015072 . claus parents: diff changeset	91	other person. No title to or ownership of the software is
cf8e46015072 . claus parents: diff changeset	92	hereby transferred.
cf8e46015072 . claus parents: diff changeset	93	"
cf8e46015072 . claus parents: diff changeset	94	!
cf8e46015072 . claus parents: diff changeset	95
cf8e46015072 . claus parents: diff changeset	96	documentation
cf8e46015072 . claus parents: diff changeset	97	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	98	this class implements functions common to all Views which do not work on / show a model.
135 cf8e46015072 . claus parents: diff changeset	99	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	100	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	101	which does so.
484 7c8dd17a160e checkin from browser Claus Gittinger <cg@exept.de> parents: 483 diff changeset	102	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	103	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	104	(there are simply too many subclasses of View around...).
fddb9d0c1aee * empty log message * Claus Gittinger <cg@exept.de> parents: 4897 diff changeset	105
4907 9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	106	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	107	from this class. However, sometimes a view is needed to create a dummy view for framing
135 cf8e46015072 . claus parents: diff changeset	108	or layout purposes.
cf8e46015072 . claus parents: diff changeset	109
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	110	[Instance variables:]
135 cf8e46015072 . claus parents: diff changeset	111
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	112	superView <View> my superview i.e. the view I am in
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	113
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	114	subViews <Collection> the collection of subviews
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	115	These are the views proper.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	116
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	117	components <Collection> collection of gadgets (will be merged with subViews, soon)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	118	These are lightweight gadgets (not seen by windows/x11).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	119
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	120	styleSheet <ResourcePack> contains widget attributes (see libview/styles/*.style)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	121
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	122	resources <ResourcePack> contains national language translations (see lib/resources/.rs)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	123
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	124	border <Border> color and width of border
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	125
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	126	unused <nil> to keep the instVar size constant
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	127
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	128	viewShape <Form> shape of view & border (if device supports it)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	129
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	130	top <Number> actual top coordinate (pixels) in superview
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	131
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	132	left <Number> actual left coordinate (pixels) in superview
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	133
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	134	flagBits <Integer> flag bits (used to be individual booleans)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	135	extendChanged true if extend changed during setup
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	136	originChanged true if origin changed during setup
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	137
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	138	relativeOrigin <Number> relative origin in percent within superview
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	139
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	140	relativeExtent <Number> relative extent in percent within superview
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	141
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	142	relativeCorner <Number> relative corner in percent within superview
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	143
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	144	originRule <Block> rule to compute origin if superview changes size
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	145
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	146	extentRule <Block> rule to compute extent if superview changes size
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	147
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	148	cornerRule <Block> rule to compute corner if superview changes size
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	149
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	150	insets <Array> array with top, left, bottom & right insets (or nil)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	151
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	152	layout <LayoutObject> not yet implemented - will replace the above layout
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	153	variables.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	154
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	155	shown <Boolean> true if visible (false if iconified, unmapped or covered)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	156
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	157	unused_hiddenOnRealize <Boolean> don't show automatically when superview is realized.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	158	now encoded in the flags.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	159	(kept to keep the instVar size constant)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	160
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	161	name <String> my name (future use for resources)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	162
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	163	level (**) <Number> 3D level relative to superview
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	164
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	165	margin <Number> convenient margin; that is the number of pixels
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	166	which are taken up by border plus 3D level
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	167	(i.e. borderWidth + level abs)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	168
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	169	innerClipRect <Rectangle> convenient inner clip (minus margin)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	170
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	171	shadowColor (**) <Color> color used to draw 3D shadowed edges
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	172
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	173	lightColor (**) <Color> color used to draw 3D lighted edges
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	174
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	175	bitGravity <nil \| Symbol> gravity of contents (if device supports it)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	176
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	177	viewGravity <nil \| Symbol> gravity of view (if device supports it)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	178
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	179	controller <nil \| Controller> the controller (if any)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	180
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	181	windowGroup <WindowGroup> the windowGroup
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	182
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	183	preferredExtent(*) <nil \| Point> preferredExtent overWrite
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	184	if nonNil, the widget will not compute
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	185	its pref-extent, but use that value.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	186
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	187	explicitExtent(*) <nil \| Point> preferredExtent overWrite
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	188	if nonNil, the widget will not compute
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	189	its pref-extent, but use that value.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	190
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	191	dependents <nil \| Collection> who depends on me
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	192
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	193	layoutManager currently unused; will be responsible for
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	194	child layout management
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	195
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	196	visibilityChannel valueHolder to control the visiblity
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	197
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	198	helpKey for tooltips
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	199
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	200	dropTarget for drag&drop
135 cf8e46015072 . claus parents: diff changeset	201
5022 72bea2a21ae6 * empty log message * Claus Gittinger <cg@exept.de> parents: 5021 diff changeset	202	(*) about to be changed to use preferredExtent as a cache and explicitExtent as
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	203	an overwrite value.
5456 0df0f5ce9d91 changed: #documentation Claus Gittinger <cg@exept.de> parents: 5436 diff changeset	204
0df0f5ce9d91 changed: #documentation Claus Gittinger <cg@exept.de> parents: 5436 diff changeset	205	(**) We have recently started to change the system to use borders instead of separate
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	206	borderWidth, borderColor, level, shadow- and lightColors.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	207	Expect more changes here in the near future..
135 cf8e46015072 . claus parents: diff changeset	208
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	209	[Class variables:]
135 cf8e46015072 . claus parents: diff changeset	210
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	211	Grey <Color> the color grey - its used so often
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	212
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	213	ViewSpacing <Number> preferred spacing between views; 1mm
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	214
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	215	CentPoint <Point> 100 @ 100 - its used so often
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	216
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	217	StyleSheet <ResourcePack> contains all view-style specifics
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	218
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	219	ReturnFocusWhenClosingModalBoxes if true, a closing modalBox returns
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	220	<Boolean> the keyboard focus to the view which was
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	221	active when the box was opened.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	222	If false (the default), it is left to
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	223	window manager to assign a new focus.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	224	If running on olwm/olvwm (which requires an
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	225	explicit click to reassign a focus), it is
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	226	better to turn this on in a private.rc file.
135 cf8e46015072 . claus parents: diff changeset	227
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	228	[styleSheet parameters:]
135 cf8e46015072 . claus parents: diff changeset	229
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	230	popupShadow <Boolean> if true, popupViews show a shadow below
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	231
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	232	popupLevel <nil \| Integer> 3D level
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	233
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	234	borderWidth <nil \| Integer> borderWidth (ignored in 3D styles)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	235
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	236	borderColor <nil \| Color> borderColor (ignored in 3D styles)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	237
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	238	viewBackground <nil \| Color> views background
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	239
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	240	shadowColor <nil \| Color> color for shadow edges (ignored in 2D styles)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	241
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	242	lightColor <nil \| Color> color for light edges (ignored in 2D styles)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	243
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	244	font <nil \| Font> font to use
135 cf8e46015072 . claus parents: diff changeset	245
cf8e46015072 . claus parents: diff changeset	246
cf8e46015072 . claus parents: diff changeset	247	TODO:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	248	get rid of relativeOrigin, relativeCorner, originRule, extentRule,
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	249	and insets; replace by a single object which defines the size
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	250	(mhmh - ST-80 seems to call this LayoutFrame ?)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	251	-> be prepared for a change here in the near future and ONLY use
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	252	access methods to get those instance variables' values
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	253
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	254	get rid of 3D level & margin, move it to extra wrappers
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	255	(although this will make view setup more complicated, it will remove
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	256	complexity from the internals of view. Also, it will allow for more
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	257	varieties of borders.)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	258
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	259	add components (could also call them gadgets or lightweight views)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	260	- views are expensive in terms of X resources. This would make all
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	261	framing/edge and panel helper views become cheap ST objects, instead
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	262	of views.
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	263
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	264
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	265	[see also:]
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	266	StandardSystemView DialogBox
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	267	WindowGroup WindowEvent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	268	Layout
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	269	( introduction to view programming :html: programming/viewintro.html )
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	270
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	271	[author:]
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	272	Claus Gittinger
135 cf8e46015072 . claus parents: diff changeset	273	"
151 8123ec03c52f . claus parents: 145 diff changeset	274	!
8123ec03c52f . claus parents: 145 diff changeset	275
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	276	examples
151 8123ec03c52f . claus parents: 145 diff changeset	277	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	278	(all examples below use different viewBackgrounds,
151 8123ec03c52f . claus parents: 145 diff changeset	279	to make the individual subviews visible)
8123ec03c52f . claus parents: 145 diff changeset	280
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	281	a subView in a topView:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	282	[exBegin]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	283	\|top v\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	284
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	285	top := StandardSystemView new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	286	v := View new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	287	v origin:0.25 @ 0.25 corner:0.75 @ 0.75.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	288	top addSubView:v.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	289	top open
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	290	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	291
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	292
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	293	the same, a bit more compact:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	294	[exBegin]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	295	\|top v\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	296
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	297	top := StandardSystemView new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	298	v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:top.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	299	top open
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	300	[exEnd]
616 56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	301
56cf67c82664 documentation Claus Gittinger <cg@exept.de> parents: 586 diff changeset	302
151 8123ec03c52f . claus parents: 145 diff changeset	303	fixed position/size:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	304	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	305	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	306
8123ec03c52f . claus parents: 145 diff changeset	307	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	308	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	309
8123ec03c52f . claus parents: 145 diff changeset	310	v1 := View origin:10@10
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	311	corner:50@50
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	312	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	313	v2 := View origin:60@10
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	314	corner:150@100
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	315	in:top.
151 8123ec03c52f . claus parents: 145 diff changeset	316
8123ec03c52f . claus parents: 145 diff changeset	317	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	318	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	319
8123ec03c52f . claus parents: 145 diff changeset	320	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	321	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	322
8123ec03c52f . claus parents: 145 diff changeset	323	same, using ST-80 way of bulding up view hierarchies
8123ec03c52f . claus parents: 145 diff changeset	324	(recommended, if you plan to port applications later)
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	325	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	326	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	327
8123ec03c52f . claus parents: 145 diff changeset	328	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	329	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	330
8123ec03c52f . claus parents: 145 diff changeset	331	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	332	v1 origin:10@10 corner:50@50.
8123ec03c52f . claus parents: 145 diff changeset	333
8123ec03c52f . claus parents: 145 diff changeset	334	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	335	v2 origin:60@10 corner:150@100.
8123ec03c52f . claus parents: 145 diff changeset	336
8123ec03c52f . claus parents: 145 diff changeset	337	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	338	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	339
8123ec03c52f . claus parents: 145 diff changeset	340	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	341	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	342
8123ec03c52f . claus parents: 145 diff changeset	343	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	344	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	345
8123ec03c52f . claus parents: 145 diff changeset	346	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	347	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	348
8123ec03c52f . claus parents: 145 diff changeset	349	fixed origin, variable size:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	350	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	351	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	352
8123ec03c52f . claus parents: 145 diff changeset	353	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	354	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	355
8123ec03c52f . claus parents: 145 diff changeset	356	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	357	v1 origin:10@10 corner:50@0.5.
8123ec03c52f . claus parents: 145 diff changeset	358
8123ec03c52f . claus parents: 145 diff changeset	359	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	360	v2 origin:60@10 corner:150@0.5.
8123ec03c52f . claus parents: 145 diff changeset	361
8123ec03c52f . claus parents: 145 diff changeset	362	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	363	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	364
8123ec03c52f . claus parents: 145 diff changeset	365	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	366	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	367
8123ec03c52f . claus parents: 145 diff changeset	368	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	369	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	370
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	371	fixed origin, variable size,
151 8123ec03c52f . claus parents: 145 diff changeset	372	bottomInset for constant distance from bottom:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	373	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	374	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	375
8123ec03c52f . claus parents: 145 diff changeset	376	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	377	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	378
8123ec03c52f . claus parents: 145 diff changeset	379	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	380	v1 origin:10@10 corner:50@1.0.
8123ec03c52f . claus parents: 145 diff changeset	381	v1 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	382
8123ec03c52f . claus parents: 145 diff changeset	383	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	384	v2 origin:60@10 corner:150@1.0.
8123ec03c52f . claus parents: 145 diff changeset	385	v2 bottomInset:10.
8123ec03c52f . claus parents: 145 diff changeset	386
8123ec03c52f . claus parents: 145 diff changeset	387	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	388	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	389
8123ec03c52f . claus parents: 145 diff changeset	390	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	391	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	392
8123ec03c52f . claus parents: 145 diff changeset	393	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	394	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	395
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	396	variable origin, variable size,
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	397	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	398	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	399
8123ec03c52f . claus parents: 145 diff changeset	400	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	401	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	402
8123ec03c52f . claus parents: 145 diff changeset	403	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	404	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	405
8123ec03c52f . claus parents: 145 diff changeset	406	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	407	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	408
8123ec03c52f . claus parents: 145 diff changeset	409	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	410	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	411
8123ec03c52f . claus parents: 145 diff changeset	412	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	413	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	414
8123ec03c52f . claus parents: 145 diff changeset	415	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	416	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	417
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	418	variable origin, variable size,
151 8123ec03c52f . claus parents: 145 diff changeset	419	insets for some constant distance
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	420	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	421	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	422
8123ec03c52f . claus parents: 145 diff changeset	423	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	424	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	425
8123ec03c52f . claus parents: 145 diff changeset	426	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	427	v1 origin:0.0@0.0 corner:0.5@0.5.
8123ec03c52f . claus parents: 145 diff changeset	428	v1 rightInset:5.
8123ec03c52f . claus parents: 145 diff changeset	429
8123ec03c52f . claus parents: 145 diff changeset	430	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	431	v2 origin:0.5@0.0 corner:1.0@0.5.
8123ec03c52f . claus parents: 145 diff changeset	432	v2 leftInset:5.
8123ec03c52f . claus parents: 145 diff changeset	433
8123ec03c52f . claus parents: 145 diff changeset	434	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	435	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	436
8123ec03c52f . claus parents: 145 diff changeset	437	top add:v1.
8123ec03c52f . claus parents: 145 diff changeset	438	top add:v2.
8123ec03c52f . claus parents: 145 diff changeset	439
8123ec03c52f . claus parents: 145 diff changeset	440	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	441	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	442
8123ec03c52f . claus parents: 145 diff changeset	443	using layout objects (ST-80 style):
8123ec03c52f . claus parents: 145 diff changeset	444	fully specifying the frame
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	445	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	446	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	447
8123ec03c52f . claus parents: 145 diff changeset	448	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	449	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	450
8123ec03c52f . claus parents: 145 diff changeset	451	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	452	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	453
8123ec03c52f . claus parents: 145 diff changeset	454	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	455	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	456
8123ec03c52f . claus parents: 145 diff changeset	457	top add:v1 in:(LayoutFrame new
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	458	leftFraction:0.25;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	459	rightFraction:0.75;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	460	topFraction:0.0;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	461	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	462	top add:v2 in:(LayoutFrame new
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	463	leftFraction:0.5;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	464	rightFraction:1.0;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	465	topFraction:0.5;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	466	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	467
8123ec03c52f . claus parents: 145 diff changeset	468	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	469	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	470
8123ec03c52f . claus parents: 145 diff changeset	471	another one, with offsets:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	472	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	473	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	474
8123ec03c52f . claus parents: 145 diff changeset	475	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	476	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	477
8123ec03c52f . claus parents: 145 diff changeset	478	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	479	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	480
8123ec03c52f . claus parents: 145 diff changeset	481	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	482	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	483
8123ec03c52f . claus parents: 145 diff changeset	484	top add:v1 in:(LayoutFrame new
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	485	leftFraction:0.0 offset:10;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	486	rightFraction:1.0 offset:-10;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	487	topFraction:0.0 offset:10;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	488	bottomFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	489	top add:v2 in:(LayoutFrame new
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	490	leftFraction:0.0 offset:30;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	491	rightFraction:1.0 offset:-30;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	492	topFraction:0.5 offset:10;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	493	bottomFraction:0.75).
151 8123ec03c52f . claus parents: 145 diff changeset	494
8123ec03c52f . claus parents: 145 diff changeset	495	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	496	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	497
8123ec03c52f . claus parents: 145 diff changeset	498	specifying origin only. Extent is views preferred
8123ec03c52f . claus parents: 145 diff changeset	499	(notice, that plain views have some defaultExtent of 100@100)
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	500	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	501	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	502
8123ec03c52f . claus parents: 145 diff changeset	503	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	504	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	505
8123ec03c52f . claus parents: 145 diff changeset	506	v1 := View new.
8123ec03c52f . claus parents: 145 diff changeset	507	v2 := View new.
8123ec03c52f . claus parents: 145 diff changeset	508
8123ec03c52f . claus parents: 145 diff changeset	509	v1 viewBackground:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	510	v2 viewBackground:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	511
8123ec03c52f . claus parents: 145 diff changeset	512	top add:v1 in:(LayoutOrigin new
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	513	leftFraction:0.25;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	514	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	515	top add:v2 in:(LayoutOrigin new
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	516	leftFraction:0.5;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	517	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	518
8123ec03c52f . claus parents: 145 diff changeset	519	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	520	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	521
8123ec03c52f . claus parents: 145 diff changeset	522	same example, using buttons which compute their preferredBounds:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	523	[exBegin]
151 8123ec03c52f . claus parents: 145 diff changeset	524	\|top v1 v2\|
8123ec03c52f . claus parents: 145 diff changeset	525
8123ec03c52f . claus parents: 145 diff changeset	526	top := StandardSystemView new.
8123ec03c52f . claus parents: 145 diff changeset	527	top extent:300@300.
8123ec03c52f . claus parents: 145 diff changeset	528
8123ec03c52f . claus parents: 145 diff changeset	529	v1 := Button label:'foo'.
8123ec03c52f . claus parents: 145 diff changeset	530	v2 := Button label:'a very long buttonLabel'.
8123ec03c52f . claus parents: 145 diff changeset	531
8123ec03c52f . claus parents: 145 diff changeset	532	v1 backgroundColor:(Color red).
8123ec03c52f . claus parents: 145 diff changeset	533	v2 backgroundColor:(Color yellow).
8123ec03c52f . claus parents: 145 diff changeset	534
8123ec03c52f . claus parents: 145 diff changeset	535	top add:v1 in:(LayoutOrigin new
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	536	leftFraction:0.25;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	537	topFraction:0.0).
151 8123ec03c52f . claus parents: 145 diff changeset	538	top add:v2 in:(LayoutOrigin new
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	539	leftFraction:0.5;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	540	topFraction:0.5).
151 8123ec03c52f . claus parents: 145 diff changeset	541
8123ec03c52f . claus parents: 145 diff changeset	542	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	543	[exEnd]
5411 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	border:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	546	[exBegin]
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	547	\|top v1 v2\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	548
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	549	top := StandardSystemView new.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	550	top extent:300@300.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	551
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	552	v1 := View new.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	553	top add:v1 in:(10@10 corner: 30@30).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	554	v2 := View new.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	555	top add:v2 in:(30@30 corner: 50@50).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	556
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	557	v1 border:(SimpleBorder width:1 color:Color red).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	558	v2 border:(SimpleBorder width:1 color:Color blue).
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	559	top open
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	560	[exEnd]
151 8123ec03c52f . claus parents: 145 diff changeset	561	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	562	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	563
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	564	examples_MDI
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	565	"
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	566	Currently, these are experimental and work under Windows only
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	567
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	568	an MDI child:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	569	[exBegin]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	570	\|top v1 v2\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	571
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	572	top := StandardSystemView new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	573	top extent:450 @ 300.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	574	top name:'MDI Client'.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	575	top beMDIClientView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	576	top open.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	577
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	578	v1 := View new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	579	v1 viewBackground:Color red.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	580	v1 origin:50 @ 50 corner:150 @ 100.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	581	v1 beMDIChildView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	582	top addSubView:v1.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	583
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	584	v2 := View new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	585	v2 viewBackground:Color green.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	586	v2 origin:50 @ 50 corner:150 @ 100.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	587	v2 beMDIChildView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	588	top addSubView:v2.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	589	[exEnd]
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	590	"
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	591	!
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	592
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	593	layoutComputation
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	594	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	595	Due to historic reasons, there are 2 mechanisms to resize a view:
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	596	- (old, to be eliminated mechanism)
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	597	based upon info found in
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	598	relativeOrigin / relativeCorner / relativeExtent
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	599	originRule / cornerRule / extentRule
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	600
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	601	- (new, will migrate to that one)
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	602	letting a layoutObject compute things
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	603
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	604	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	605	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	606	geometry is desired.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	607	However, having 6 instance variables in every view creates some overhead,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	608	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	609	relative-sized).
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	610	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	611	to use layoutObjects.
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	612	You will not see a difference at the view's protocol level, since
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	613	existing interfaces will (silently) create layoutObjects as appropriate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	614	However, you should remove all direct accesses to the above mentioned
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	615	instance variables, to be prepared for that change.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	616
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	617	Notice, that a view recomputes its size whenever its superview
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	618	changes size. This is done via:
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	619	sizeChanged
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	620	-> allSubviews: superViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	621
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	622	If the geometry computation as performed in superViewChangedSize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	623	is not powerful enough for your application, you can either:
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	624	- redefine superViewChangedSize
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	625	- create a special layoutObject which computes a new layout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	626	"
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
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	629	popupMenus
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	630	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	631	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	632	definition:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	633
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	634	- static menus
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	635
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	636	- dynamic menus from the view
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	637
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	638	- dynamic menus from the model / menuHolder
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	639
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	640
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	641	static menus
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	642	------------
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	643
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	644	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	645	has a constant menu which never changes.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	646	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	647	The menu is defined with:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	648
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	649	someView middleButtonMenu:<aPopUpMenu>
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	650
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	651	Compatibility note:
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	652	static menus should no longer be used - their operation
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	653	is incompatible with ST-80 and ST/X's dynamic menus.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	654	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	655	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	656	(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	657
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	658	example:
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	659	\|top v1 v2\|
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	660
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	661	top := StandardSystemView new.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	662	top extent:300@300.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	663
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	664	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	665	v1 viewBackground:Color red.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	666
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	667	v2 := View origin:0.5@0.0 corner:1.0@1.0 in:top.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	668	v2 viewBackground:Color yellow.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	669
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	670	v1 middleButtonMenu:(
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	671	PopUpMenu
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	672	labels:#('foo' 'bar')
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	673	selectors:#(foo bar)
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	674	receiver:v1
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	675	).
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	676
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	677	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	678
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	679
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	680
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	681	dynamic menus
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
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	684	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	685	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	686	(i.e. it may be different from the model).
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	687	If the model shall provide the menu, set the view's menuMessage to a selector
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	688	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	689
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	690	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	691	set - in this case, that one provides the menu; not the model.
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	692	Don't get confused by the fact that menuHolders are only supported
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	693	by textViews.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	694
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	695	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	696	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	697	- 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	698	(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	699	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	700	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	701	(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	702
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	703	\|top v1 v2 holder\|
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	704
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	705	holder := Plug new.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	706	holder respondTo:#menu1
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	707	with:[
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	708	v1 menuMessage:#otherMenu1.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	709	PopUpMenu
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	710	labels:#('foo' 'bar')
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	711	selectors:#(foo bar).
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	712	].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	713	holder respondTo:#otherMenu1
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	714	with:[
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	715	v1 menuMessage:#menu1.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	716	PopUpMenu
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	717	labels:#('other foo' 'other bar')
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	718	selectors:#(foo bar).
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	719	].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	720	holder respondTo:#menu2
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	721	with:[ PopUpMenu
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	722	labels:#('copy' 'bar2')
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	723	selectors:#(copySelection bar2)
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	724	].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	725
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	726	top := StandardSystemView new.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	727	top extent:300@300.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	728
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	729	v1 := View origin:0.0@0.0 corner:0.5@1.0 in:top.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	730	v1 viewBackground:Color red.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	731
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	732	v2 := TextView origin:0.5@0.0 corner:1.0@1.0 in:top.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	733	v2 contents:'pop me up'.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	734
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	735	v1 model:holder; menuMessage:#menu1.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	736	v2 menuHolder:holder; menuMessage:#menu2.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	737
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	738	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	739
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	740	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	741	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	742	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	743	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	744
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	745	example:
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	746	(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	747	views built-in copy is NOT performed
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	748	- it could be forwarded to the view, though.
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	749	This could be useful to intercept/filter things).
1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	750
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	751	\|top v menuProvider menuExecutor \|
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	752
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	753	menuProvider := Plug new.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	754	menuProvider respondTo:#menu
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	755	with:[ PopUpMenu
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	756	labels:#('copy' 'foo')
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	757	selectors:#(copySelection foo)
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	758	].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	759
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	760	menuExecutor := Plug new.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	761	menuExecutor respondTo:#copySelection
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	762	with:[Transcript showCR:'copy function'].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	763	menuExecutor respondTo:#foo
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	764	with:[Transcript showCR:'foo function'].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	765
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	766	top := StandardSystemView new.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	767	top extent:300@300.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	768
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	769	v := TextView origin:0.0@0.0 corner:1.0@1.0 in:top.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	770	v contents:'pop me up'.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	771
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	772	v menuHolder:menuProvider; menuMessage:#menu.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	773	v menuPerformer:menuExecutor.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	774
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	775	top open.
522 1b041037c1ee added docu on popUpMenu execution Claus Gittinger <cg@exept.de> parents: 520 diff changeset	776	"
135 cf8e46015072 . claus parents: diff changeset	777	! !
cf8e46015072 . claus parents: diff changeset	778
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	779	!SimpleView class methodsFor:'initialization'!
135 cf8e46015072 . claus parents: diff changeset	780
cf8e46015072 . claus parents: diff changeset	781	initialize
cf8e46015072 . claus parents: diff changeset	782	DefaultStyle isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	783	Font initialize.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	784	Form initialize.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	785	Color initialize.
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	786	].
0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	787	self == SimpleView ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	788	Smalltalk addDependent:self "/ to get language changes
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	789	].
0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	790
7306 600abeee8631 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7304 diff changeset	791	ReturnFocusWhenClosingModalBoxes := true. "/ false.
696 3719a063d0f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 683 diff changeset	792
7094 349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	793	FlagOriginChanged := 2r00000000000001.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	794	FlagExtentChanged := 2r00000000000010.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	795	FlagCornerChanged := 2r00000000000100.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	796
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	797	FlagCanTab := 2r00000000001000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	798	FlagExtentChangedBeforeCreated := 2r00000000010000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	799	FlagRequestFocusOnPointerEnter := 2r00000000100000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	800	FlagDoNotRequestFocusOnPointerEnter := 2r00000001000000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	801	FlagNativeWidget := 2r00000010000000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	802	FlagIsUnmappedModalBox := 2r00000100000000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	803	FlagIsMDIChild := 2r00001000000000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	804
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	805	FlagHiddenOnRealize := 2r00010000000000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	806	FlagHasExplicitExtent := 2r00100000000000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	807	FlagTakeFocusWhenMapped := 2r01000000000000.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	808	FlagBeingDestroyed := 2r10000000000000.
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	809
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	810	"Modified: / 09-12-2010 / 10:32:01 / cg"
135 cf8e46015072 . claus parents: diff changeset	811	!
cf8e46015072 . claus parents: diff changeset	812
cf8e46015072 . claus parents: diff changeset	813	postAutoload
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	814	(Screen notNil and:[Screen current notNil]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	815	self updateStyleCache.
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	816	]
135 cf8e46015072 . claus parents: diff changeset	817	! !
cf8e46015072 . claus parents: diff changeset	818
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	819	!SimpleView class methodsFor:'instance creation'!
135 cf8e46015072 . claus parents: diff changeset	820
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	821	extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	822	"create a new view with given extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	823
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	824	^ self origin:nil extent:extent borderWidth:nil font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	825	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	826
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	827	extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	828	"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	829
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	830	^ self origin:nil extent:extent borderWidth:nil font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	831	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	832
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	833	extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	834	"create a new view with given extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	835
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	836	^ self origin:nil extent:extent borderWidth:nil font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	837	!
cf8e46015072 . claus parents: diff changeset	838
cf8e46015072 . claus parents: diff changeset	839	in:aView
cf8e46015072 . claus parents: diff changeset	840	"return a new view as a subview of aView.
cf8e46015072 . claus parents: diff changeset	841	If aView is nil, it is left unspecified, in which superview
cf8e46015072 . claus parents: diff changeset	842	the new view will be placed. The view can later be assigned
cf8e46015072 . claus parents: diff changeset	843	by adding it to the superview via #addSubView:.
7892 0019b3cff185 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7869 diff changeset	844	If it's 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	845	it will come up as a topview."
135 cf8e46015072 . claus parents: diff changeset	846
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	847	\|newView viewsDevice\|
135 cf8e46015072 . claus parents: diff changeset	848
cf8e46015072 . claus parents: diff changeset	849	newView := self basicNew.
cf8e46015072 . claus parents: diff changeset	850	aView notNil ifTrue:[
7740 5a101b2965bc #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7736 diff changeset	851	viewsDevice := aView graphicsDevice.
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	852	"/ newView container:aView.
7740 5a101b2965bc #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7736 diff changeset	853	].
5a101b2965bc #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7736 diff changeset	854	viewsDevice isNil ifTrue:[
5a101b2965bc #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7736 diff changeset	855	viewsDevice := Screen current
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	856	].
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	857	newView initializeForDevice:viewsDevice.
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	858	(viewsDevice supportsNativeWidgetType:newView nativeWindowType) ifTrue:[
7740 5a101b2965bc #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7736 diff changeset	859	newView beNativeWidget
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	860	].
135 cf8e46015072 . claus parents: diff changeset	861	aView notNil ifTrue:[aView addSubView:newView].
cf8e46015072 . claus parents: diff changeset	862	^ newView
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	863
7892 0019b3cff185 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7869 diff changeset	864	"Modified: / 28-05-1996 / 20:24:58 / cg"
0019b3cff185 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7869 diff changeset	865	"Modified (comment): / 13-02-2017 / 20:30:36 / cg"
135 cf8e46015072 . claus parents: diff changeset	866	!
cf8e46015072 . claus parents: diff changeset	867
140 0db355079dc4 . claus parents: 138 diff changeset	868	label:label
0db355079dc4 . claus parents: 138 diff changeset	869	"create a new view with given label"
135 cf8e46015072 . claus parents: diff changeset	870
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	871	^ self origin:nil extent:nil borderWidth:nil font:nil label:label in:nil
140 0db355079dc4 . claus parents: 138 diff changeset	872	!
0db355079dc4 . claus parents: 138 diff changeset	873
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	874	label:label in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	875	"create a new view as subview of aView with given label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	876
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	877	^ self origin:nil extent:nil borderWidth:nil font:nil label:label in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	878	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	879
1393 0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	880	model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	881	"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	882	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	883	subclasses may."
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	884
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	885	^ self new model:aModel
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	886
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	887	"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	888	"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	889	!
0af63b69b416 moved class>>model from View to here. Claus Gittinger <cg@exept.de> parents: 1389 diff changeset	890
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	891	on:aModel
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	892	"create a new drawable on aModel"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	893
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	894	"although this one does not know about models,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	895	it can still send the model-assign message. This was done
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	896	to catch obsolete calls to on:aDevice.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	897	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	898	^ self new model:aModel.
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	901	onSameDeviceAs:anotherView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	902	"create a view on the same device as anotherView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	903	Used with popUpMenus, which should be created on the device of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	904	its masterView."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	905
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	906	\|viewsDevice\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	907
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	908	anotherView notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	909	viewsDevice := anotherView graphicsDevice.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	910	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	911	viewsDevice := Screen current.
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	912	].
cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	913	^ self onDevice:viewsDevice
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	914
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	915	"Modified: 28.5.1996 / 20:25:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	916	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	917
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	918	origin:origin corner:corner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	919	"create a new view with given origin and extent"
135 cf8e46015072 . claus parents: diff changeset	920
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	921	^ self origin:origin corner:corner borderWidth:nil font:nil label:nil in:nil
135 cf8e46015072 . claus parents: diff changeset	922	!
cf8e46015072 . claus parents: diff changeset	923
cf8e46015072 . claus parents: diff changeset	924	origin:anOrigin corner:aCorner borderWidth:bw font:aFont label:aLabel in:aView
cf8e46015072 . claus parents: diff changeset	925	\|newView\|
cf8e46015072 . claus parents: diff changeset	926
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	927	newView := self in:aView.
135 cf8e46015072 . claus parents: diff changeset	928	bw notNil ifTrue:[newView borderWidth:bw].
cf8e46015072 . claus parents: diff changeset	929	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	930	aCorner notNil ifTrue:[newView corner:aCorner].
cf8e46015072 . claus parents: diff changeset	931	aFont notNil ifTrue:[newView font:aFont].
cf8e46015072 . claus parents: diff changeset	932	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	933	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	934
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	935	"Modified: 28.5.1996 / 20:25:15 / cg"
135 cf8e46015072 . claus parents: diff changeset	936	!
cf8e46015072 . claus parents: diff changeset	937
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	938	origin:origin corner:corner borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	939	"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	940
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	941	^ self origin:origin corner:corner borderWidth:bw font:nil label:nil in:aView
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	944	origin:origin corner:corner in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	945	"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	946
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	947	^ self origin:origin corner:corner borderWidth:nil font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	948	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	949
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	950	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	951	"create a new view with given origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	952
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	953	^ self origin:origin extent:extent borderWidth:nil font:nil label:nil in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	954	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	955
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	956	origin:origin extent:extent borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	957	"create a new view with given origin, extent and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	958
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	959	^ self origin:origin extent:extent borderWidth:bw font:nil label:nil in:nil
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	962	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	963	\|newView\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	964
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	965	newView := self in:aView.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	966	bw notNil ifTrue:[newView borderWidth:bw].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	967	anExtent notNil ifTrue:[newView extent:anExtent].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	968	anOrigin notNil ifTrue:[newView origin:anOrigin].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	969	aFont notNil ifTrue:[newView font:aFont].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	970	aLabel notNil ifTrue:[newView label:aLabel].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	971	^ newView
743 64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	972
64c9b71b3cc4 checkin from browser Claus Gittinger <cg@exept.de> parents: 739 diff changeset	973	"Modified: 28.5.1996 / 20:25:19 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	974	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	975
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	976	origin:origin extent:extent borderWidth:bw in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	977	"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	978	and borderWidth"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	979
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	980	^ self origin:origin extent:extent borderWidth:bw font:nil label:nil in:aView
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	983	origin:origin extent:extent font:aFont label:label
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	984	^ self origin:origin extent:extent borderWidth:nil font:nil label:label in:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	985	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	986
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	987	origin:origin extent:extent font:aFont label:label in:aView
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	988	^ self origin:origin extent:extent borderWidth:nil font:aFont label:label in:aView
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	991	origin:origin extent:extent in:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	992	"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	993
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	994	^ self origin:origin extent:extent borderWidth:nil font:nil label:nil in:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	995	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	996
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	997	origin:origin extent:extent label:label
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	998	"create a new view with given origin, extent and label"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	999
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	1000	^ self origin:origin extent:extent borderWidth:nil font:nil label:label in:nil
135 cf8e46015072 . claus parents: diff changeset	1001	!
cf8e46015072 . claus parents: diff changeset	1002
cf8e46015072 . claus parents: diff changeset	1003	origin:anOrigin extent:anExtent
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1004	label:aLabel icon:aForm
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1005	minExtent:minExtent maxExtent:maxExtent
135 cf8e46015072 . claus parents: diff changeset	1006	\|newView\|
cf8e46015072 . claus parents: diff changeset	1007
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	1008	newView := self new. "/ onDevice:Screen current.
135 cf8e46015072 . claus parents: diff changeset	1009	anOrigin notNil ifTrue:[newView origin:anOrigin].
cf8e46015072 . claus parents: diff changeset	1010	anExtent notNil ifTrue:[newView extent:anExtent].
cf8e46015072 . claus parents: diff changeset	1011	aLabel notNil ifTrue:[newView label:aLabel].
cf8e46015072 . claus parents: diff changeset	1012	aForm notNil ifTrue:[newView icon:aForm].
cf8e46015072 . claus parents: diff changeset	1013	minExtent notNil ifTrue:[newView minExtent:minExtent].
cf8e46015072 . claus parents: diff changeset	1014	maxExtent notNil ifTrue:[newView maxExtent:maxExtent].
cf8e46015072 . claus parents: diff changeset	1015	^ newView
cf8e46015072 . claus parents: diff changeset	1016	!
cf8e46015072 . claus parents: diff changeset	1017
140 0db355079dc4 . claus parents: 138 diff changeset	1018	origin:origin in:aView
0db355079dc4 . claus parents: 138 diff changeset	1019	"create a new view as a subview of aView with given origin"
0db355079dc4 . claus parents: 138 diff changeset	1020
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	1021	^ self origin:origin extent:nil borderWidth:nil font:nil label:nil in:aView
135 cf8e46015072 . claus parents: diff changeset	1022	! !
cf8e46015072 . claus parents: diff changeset	1023
5293 3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1024	!SimpleView class methodsFor:'Signal constants'!
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1025
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1026	aboutToOpenBoxNotificationSignal
7127 adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1027	"the following allows for knowledgable programmers to suppress dialog boxes,
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1028	(by proceeding with #abort) or to patch common controls right before opening..."
5690 29d8a448659e comment: #aboutToOpenBoxNotificationSignal Claus Gittinger <cg@exept.de> parents: 5680 diff changeset	1029
5293 3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1030	^ AboutToOpenBoxNotificationSignal
5690 29d8a448659e comment: #aboutToOpenBoxNotificationSignal Claus Gittinger <cg@exept.de> parents: 5680 diff changeset	1031
29d8a448659e comment: #aboutToOpenBoxNotificationSignal Claus Gittinger <cg@exept.de> parents: 5680 diff changeset	1032	"Modified: / 27-01-2011 / 17:35:00 / cg"
7127 adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1033	!
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1034
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1035	boxClosedNotificationSignal
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1036	"the following allows for knowledgable programmers to handle closed dialog boxes,
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1037	this is raised right after closing..."
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1038
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	1039	^ BoxClosedNotificationSignal
5293 3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1040	! !
3cfe2ac1b101 AboutToOpenBoxNotificationSignal moved to SimpleView and raised Claus Gittinger <cg@exept.de> parents: 5292 diff changeset	1041
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1042	!SimpleView class methodsFor:'change & update'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1043
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	1044	update:something with:aParameter from:changedObject
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	1045	changedObject == Smalltalk ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1046	(something == #Language or:[something == #LanguageTerritory]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1047	"flush resources on language changes"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1048	self flushAllClassResources.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1049	self allSubInstancesDo:[:eachView \| eachView languageChanged].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1050	].
135 cf8e46015072 . claus parents: diff changeset	1051	]
867 7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	1052
7073ec7824f3 checkin from browser Claus Gittinger <cg@exept.de> parents: 795 diff changeset	1053	"Created: 15.6.1996 / 15:23:04 / cg"
135 cf8e46015072 . claus parents: diff changeset	1054	! !
cf8e46015072 . claus parents: diff changeset	1055
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1056	!SimpleView class methodsFor:'defaults'!
135 cf8e46015072 . claus parents: diff changeset	1057
5366 ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1058	defaultBackgroundColor
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1059	"return the default background color for drawing - usually,
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1060	that is the same as the viewBackgroundColor."
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1061
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1062	^ self defaultViewBackgroundColor
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1063
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1064	"
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1065	View defaultBackgroundColor
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
ce5017348c83 added: #defaultBackgroundColor Claus Gittinger <cg@exept.de> parents: 5358 diff changeset	1068	"Modified: 13.8.1997 / 19:37:55 / cg"
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
140 0db355079dc4 . claus parents: 138 diff changeset	1071	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1072	"return the default extent of my instances.
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1073	The value returned here is usually ignored, and
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1074	the value from preferredExtent taken instead."
140 0db355079dc4 . claus parents: 138 diff changeset	1075
0db355079dc4 . claus parents: 138 diff changeset	1076	CentPoint isNil ifTrue:[CentPoint := 100 @ 100].
0db355079dc4 . claus parents: 138 diff changeset	1077	^ CentPoint
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1078
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	1079	"Modified: 22.4.1996 / 23:38:39 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	1080	!
0db355079dc4 . claus parents: 138 diff changeset	1081
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1082	defaultFont
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1083	\|f\|
0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1084
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1085	DefaultFont notNil ifTrue:[^ DefaultFont].
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1086
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	1087	self == SimpleView ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1088	f := super defaultFont
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	1089	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1090	f := self superclass defaultFont.
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1091	].
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1092
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1093	f notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1094	DefaultFont := f.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1095	f := f onDevice:Screen current.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1096	f notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1097	DefaultFont := f.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1098	]
990 0585aee05fa2 * empty log message * Claus Gittinger <cg@exept.de> parents: 971 diff changeset	1099	].
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1100	^ DefaultFont
467 badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	1101
badc7ab65a2d checkin from browser Claus Gittinger <cg@exept.de> parents: 452 diff changeset	1102	"Modified: 27.2.1996 / 02:20:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1103	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1104
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1105	defaultFont:aFont
452 f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1106	"set the default font used for drawing"
f38d70ba97a2 made DefaultFont a classINSTvariable Claus Gittinger <cg@exept.de> parents: 450 diff changeset	1107
997 39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1108	\|f\|
39d5d3a74853 * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1109
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1110	DefaultFont := aFont.
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1111	aFont notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1112	Display notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1113	f := aFont onDevice:(Screen current).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1114	f notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1115	DefaultFont := f.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1116	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1117	]
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1118	]
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1119
743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1120	"Modified: 18.3.1996 / 12:56:20 / cg"
450 9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1121	!
9eb6198de8f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 433 diff changeset	1122
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1123	defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1124	"return the default view style"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1125
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1126	^ DefaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1127
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1128	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1129	View defaultStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1130	"
135 cf8e46015072 . claus parents: diff changeset	1131	!
cf8e46015072 . claus parents: diff changeset	1132
cf8e46015072 . claus parents: diff changeset	1133	defaultStyle:aStyle
cf8e46015072 . claus parents: diff changeset	1134	"set the view style for new views"
cf8e46015072 . claus parents: diff changeset	1135
2985 62552b74e805 do not read styleSheet if Display is nil Stefan Vogel <sv@exept.de> parents: 2979 diff changeset	1136	DefaultStyle := aStyle.
6798 62c531da09f3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6792 diff changeset	1137
62c531da09f3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6792 diff changeset	1138	MIMETypeIconLibrary notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1139	MIMETypeIconLibrary flushIcons
6798 62c531da09f3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6792 diff changeset	1140	].
62c531da09f3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6792 diff changeset	1141
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	1142	"/ no need to read the stylesheet always here
5711 290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1143	"/ done later if the system is not already up and running
290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1144	"/ (which is the case, if there is already a styleSheet)
290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1145	"/ this will make startup of expecco and similar applications
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	1146	"/ faster, because often, they find that another instance is already
5711 290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1147	"/ running and they simply forward the request to that one.
290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1148	"/ no need to read the stylesheet, then.
290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1149	"/ used to be unconditional, before.
290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1150	StyleSheet notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1151	(Screen notNil and:[Screen current notNil]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1152	self readStyleSheetAndUpdateAllStyleCaches.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1153	].
5711 290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1154	].
135 cf8e46015072 . claus parents: diff changeset	1155
cf8e46015072 . claus parents: diff changeset	1156	"
cf8e46015072 . claus parents: diff changeset	1157	View defaultStyle:#next. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1158	View defaultStyle:#motif. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1159	View defaultStyle:#iris. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1160	View defaultStyle:#st80. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1161	View defaultStyle:#normal. SystemBrowser start
cf8e46015072 . claus parents: diff changeset	1162	"
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1163
5711 290bfea2c941 changed: #defaultStyle: Claus Gittinger <cg@exept.de> parents: 5707 diff changeset	1164	"Modified: / 05-02-2011 / 15:26:34 / cg"
135 cf8e46015072 . claus parents: diff changeset	1165	!
cf8e46015072 . claus parents: diff changeset	1166
1860 95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1167	defaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1168	"return the default view background"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1169
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1170	^ DefaultViewBackgroundColor
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1171
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1172	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1173	View defaultViewBackgroundColor
1860 95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1174	"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1175
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1176	"Modified: 13.8.1997 / 19:37:55 / cg"
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1177	!
95ce8aa47451 added access to DefaultViewBackgroundColor Claus Gittinger <cg@exept.de> parents: 1851 diff changeset	1178
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1179	readStyleSheet
3181 35d4e8a2bebd comment ps parents: 3180 diff changeset	1180	"(re)load the styleSheet."
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1181
4313 48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1182	\|iconLibraryClass \|
48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1183
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1184	DefaultStyle isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1185	self setDefaultStyle
3762 968432b99c48 * empty log message * Claus Gittinger <cg@exept.de> parents: 3754 diff changeset	1186	].
3002 3b0951872ab4 * empty log message * Stefan Vogel <sv@exept.de> parents: 2994 diff changeset	1187
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1188	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1189	StyleSheet fileReadFailed ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1190	('SimpleView [warning]: ***** no styleSheet for ' , DefaultStyle , '-style.') errorPrintCR.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1191	DefaultStyle ~~ #normal ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1192	DefaultStyle := #normal.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1193	StyleSheet := ViewStyle fromFile:(DefaultStyle , '.style').
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1194
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1195	StyleSheet fileReadFailed ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1196	'SimpleView [warning]: not even a styleSheet for normal-style (using ugly defaults).' errorPrintCR.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1197	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1198	]
4313 48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1199	].
48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1200
48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1201	iconLibraryClass := StyleSheet at:#ToolbarIconLibrary.
48fe65cf3fd2 iconLibrary-class from styleSheet Claus Gittinger <cg@exept.de> parents: 4295 diff changeset	1202	ToolbarIconLibrary := iconLibraryClass ? GenericToolbarIconLibrary.
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1203
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1204	"Created: / 15.9.1998 / 22:03:06 / cg"
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
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1207	readStyleSheetAndUpdateAllStyleCaches
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1208	"reload all style caches in all view classes.
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1209	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	1210
5591 992839870412 changed: #readStyleSheetAndUpdateAllStyleCaches Stefan Vogel <sv@exept.de> parents: 5590 diff changeset	1211	DefaultStyle notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1212	self readStyleSheet.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1213	self updateAllStyleCaches.
5591 992839870412 changed: #readStyleSheetAndUpdateAllStyleCaches Stefan Vogel <sv@exept.de> parents: 5590 diff changeset	1214	].
2351 bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1215
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1216	"Created: / 15.9.1998 / 22:03:59 / cg"
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1217	!
bb7cb7d8d723 separated style-handling into read-/update, Claus Gittinger <cg@exept.de> parents: 2302 diff changeset	1218
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1219	returnFocusWhenClosingModalBoxes
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1220	"return the current focus-return behavior.
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1221	See #returnFocusWhenClosingModalBoxes: for a description."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1222
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1223	^ ReturnFocusWhenClosingModalBoxes
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1224	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1225
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1226	returnFocusWhenClosingModalBoxes:aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1227	"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	1228	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	1229	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	1230	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	1231	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	1232	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	1233	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	1234	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	1235	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	1236	display.rc file."
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1237
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1238	ReturnFocusWhenClosingModalBoxes := aBoolean
364 b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1239
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1240	"
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1241	Dialog returnFocusWhenClosingModalBoxes:false
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1242	Dialog returnFocusWhenClosingModalBoxes:true
b44b425e3ee1 oops - forgot to initialize the value of ReturnFocusWhenClosing Claus Gittinger <cg@exept.de> parents: 362 diff changeset	1243	"
362 0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1244	!
0fa4bc6ad8d1 allow setting of dialog-focus behavior ca parents: 358 diff changeset	1245
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1246	setDefaultStyle
7178 7963dc6ec798 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7144 diff changeset	1247	"set a default style as appropriate for the underlying system.
7963dc6ec798 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7144 diff changeset	1248	This is used if no setting is coming from a startup file or a preferences,
7963dc6ec798 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7144 diff changeset	1249	i.e. for standalone apps (with no .rc file)"
7963dc6ec798 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7144 diff changeset	1250
7963dc6ec798 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7144 diff changeset	1251	\|defStyle\|
7963dc6ec798 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7144 diff changeset	1252
7963dc6ec798 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7144 diff changeset	1253	true "DefaultStyle isNil" ifTrue:[
7712 287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1254	defStyle := OperatingSystem getEnvironment:'STX_VIEWSTYLE'.
7713 5e4be080979a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7712 diff changeset	1255	defStyle isNil ifTrue:[
5e4be080979a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7712 diff changeset	1256	defStyle := UserPreferences current viewStyle
5e4be080979a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7712 diff changeset	1257	].
7712 287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1258	defStyle notNil ifTrue:[
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1259	DefaultStyle := defStyle asSymbol.
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1260	] ifFalse:[
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1261	"/ use XP for both linux and older windows systems;
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1262	DefaultStyle := ViewStyle msWindowsXP.
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1263
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1264	OperatingSystem isMSWINDOWSlike ifTrue:[
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1265	"/ use Vista for vista and newer systems;
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1266	OperatingSystem isVistaLike ifTrue:[
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1267	DefaultStyle := ViewStyle msWindowsVista.
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1268	OperatingSystem isWin8Like ifTrue:[
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1269	"/ use win8 for 8 and newer systems;
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1270	DefaultStyle := ViewStyle msWindows8
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1271	].
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1272	].
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1273	] ifFalse:[
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1274	OperatingSystem isOSXlike ifTrue:[
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1275	DefaultStyle := ViewStyle macosx_yosemite
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1276	] ifFalse:[
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1277	DefaultStyle := ViewStyle adwaita
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1278	]
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1279	].
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1280	].
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1281	].
287a27631c15 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7692 diff changeset	1282
7713 5e4be080979a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7712 diff changeset	1283	"Modified: / 24-11-2016 / 18:00:43 / cg"
2294 f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1284	!
f198e6e23448 defaultStyle Claus Gittinger <cg@exept.de> parents: 2293 diff changeset	1285
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1286	styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1287	"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	1288
3923 5e0345a32742 stylesheet access Claus Gittinger <cg@exept.de> parents: 3922 diff changeset	1289	StyleSheet isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1290	self updateAllStyleCaches.
3923 5e0345a32742 stylesheet access Claus Gittinger <cg@exept.de> parents: 3922 diff changeset	1291	].
1161 07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1292	^ StyleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1293
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1294	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1295	View styleSheet
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1296	"
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1297
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1298	"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	1299	!
07570a2d9008 added access to the styleSheet (for App-models) Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1300
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1301	styleSheet:aViewStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1302	"set the view style from a style-sheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1303
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1304	StyleSheet := aViewStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1305	DefaultStyle := (StyleSheet at:'name' ifAbsent:'unknown') asSymbol.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1306	self updateAllStyleCaches.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1307	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1308
5978 d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1309	updateAllStyleCaches
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1310	"reload all style caches in all view classes.
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1311	Needed after a style change or when a style file has been changed"
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1312
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1313	(Screen isNil or:[Screen current isNil]) ifTrue:[^ self].
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1314
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1315	"
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1316	tell all view classes to flush any
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1317	cached style-data
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1318	"
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1319	self changed:#style.
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1320	SimpleView updateStyleCache.
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1321	SimpleView allSubclassesDo:[:aClass \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1322	"JV@2010-12-02: Removed to avoid lost of preferred fonts on image restart"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1323	"/ cg: no, this is required!!!!!!
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1324	"/ otherwise, we get ugly courier fonts on windows
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1325	"/ updateStyleCache MUST clear any previously
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1326	"/ cached font values, otherwise you cannot load a style's font.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1327	"/ if you want to keep your fonts, do it elsewhere (keep some userFontPrefs and restore from there)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1328
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1329	"/ JV: Font preferences ARE already saved in user's setting.rc/setting.stx, but they
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1330	"/ are not reloaded on snapshot restart (which is correct, I think).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1331	"/ This just discard such fonts. I would say calling this upon snapshot restart
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1332	"/ is a bad idea. Workaround it only for me is not a solution as all other
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1333	"/ Linux users are ... off. Let's workaround it:
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1334	(Smalltalk isInitialized not and:
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1335	[OperatingSystem getOSType == #linux and:
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1336	[UserPreferences current linuxFontWorkaround]])
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1337	ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1338	aClass defaultFont:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1339	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1340
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1341	(aClass class includesSelector:#updateStyleCache) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1342	aClass updateStyleCache
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1343	].
6611 d374e1b85bfd class: SimpleView Claus Gittinger <cg@exept.de> parents: 6606 diff changeset	1344	].
d374e1b85bfd class: SimpleView Claus Gittinger <cg@exept.de> parents: 6606 diff changeset	1345
d374e1b85bfd class: SimpleView Claus Gittinger <cg@exept.de> parents: 6606 diff changeset	1346	"/ use #at: to avoid introducing a depency to libview2
d374e1b85bfd class: SimpleView Claus Gittinger <cg@exept.de> parents: 6606 diff changeset	1347	(Smalltalk at:#MIMETypeIconLibrary) notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1348	(Smalltalk at:#MIMETypeIconLibrary) flushIcons
6611 d374e1b85bfd class: SimpleView Claus Gittinger <cg@exept.de> parents: 6606 diff changeset	1349	].
d374e1b85bfd class: SimpleView Claus Gittinger <cg@exept.de> parents: 6606 diff changeset	1350
5978 d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1351
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1352	"
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1353	View updateAllStyleCaches
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1354	"
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1355
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1356	"Modified: / 15-09-1998 / 22:04:15 / cg"
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1357	"Modified (format): / 05-10-2011 / 16:08:47 / az"
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1358	"Modified (format): / 30-03-2012 / 17:31:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1359	!
d82030712cd6 class: SimpleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5976 diff changeset	1360
135 cf8e46015072 . claus parents: diff changeset	1361	updateStyleCache
cf8e46015072 . claus parents: diff changeset	1362	"this method gets some heavily used style stuff and keeps
cf8e46015072 . claus parents: diff changeset	1363	it in class-variables for faster access.
cf8e46015072 . claus parents: diff changeset	1364	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	1365	into faster class variables as well. These should NOT do a
135 cf8e46015072 . claus parents: diff changeset	1366	super updateStyleCache, since this method is called for all view-classes
cf8e46015072 . claus parents: diff changeset	1367	anyway."
cf8e46015072 . claus parents: diff changeset	1368
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1369	<resource: #style (#viewSpacing #font #borderWidth #borderColor
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1370	#viewBackground #shadowColor #lightColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1371	#focusColor #focusBorderWidth)>
2292 8efc5272cf0b defaultStyle either from environmane (STX_VIEWSTYLE) Claus Gittinger <cg@exept.de> parents: 2274 diff changeset	1372
6633 aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1373	\|styleSheet bgGrey currentScreen\|
aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1374
aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1375	styleSheet := StyleSheet.
135 cf8e46015072 . claus parents: diff changeset	1376
cf8e46015072 . claus parents: diff changeset	1377	"
cf8e46015072 . claus parents: diff changeset	1378	when coming here the first time, we read the styleSheet
cf8e46015072 . claus parents: diff changeset	1379	and keep the values in fast class variables
cf8e46015072 . claus parents: diff changeset	1380	"
6633 aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1381	styleSheet isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1382	self setDefaultStyle.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1383	self readStyleSheet.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1384	styleSheet := StyleSheet.
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1385	].
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1386
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1387	currentScreen := Screen current ? Screen default.
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1388
6633 aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1389	Grey := styleSheet viewGrey.
135 cf8e46015072 . claus parents: diff changeset	1390	Grey isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1391	Grey := Color gray
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1392	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1393	Grey := Grey onDevice:currentScreen.
135 cf8e46015072 . claus parents: diff changeset	1394
6633 aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1395	styleSheet fileReadFailed ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1396	bgGrey := Color white
135 cf8e46015072 . claus parents: diff changeset	1397	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1398	currentScreen hasGrayscales ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1399	bgGrey := Grey
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1400	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1401	bgGrey := Color white.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1402	]
2829 c50504338b61 #on: -> #onDevice: Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1403	].
2994 c6be08b45a76 eliminated refs to Display (must use Screen current) Stefan Vogel <sv@exept.de> parents: 2985 diff changeset	1404	bgGrey := bgGrey onDevice:currentScreen.
135 cf8e46015072 . claus parents: diff changeset	1405
6633 aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1406	ViewSpacing := styleSheet at:#viewSpacing.
135 cf8e46015072 . claus parents: diff changeset	1407	ViewSpacing isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1408	ViewSpacing := currentScreen defaultStyleValueFor:#viewSpacing.
2492 0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1409	].
0ac67f027ba4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2489 diff changeset	1410
6633 aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1411	DefaultBorderColor := styleSheet colorAt:#borderColor.
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1412	DefaultBorderColor isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1413	DefaultBorderColor := currentScreen defaultStyleValueFor:#borderColor
1678 5c93a4791a8b prepare to fetch style defaults from device (for windows) Claus Gittinger <cg@exept.de> parents: 1617 diff changeset	1414	].
151 8123ec03c52f . claus parents: 145 diff changeset	1415
6633 aa34de5874e0 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6622 diff changeset	1416	styleSheet fileReadFailed ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1417	DefaultBorderWidth := 1.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1418	DefaultFocusColor := DefaultShadowColor := Color black.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1419	DefaultViewBackgroundColor := DefaultLightColor := Color white.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1420	DefaultFocusBorderWidth := 1.
151 8123ec03c52f . claus parents: 145 diff changeset	1421	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1422	DefaultBorderWidth := styleSheet at:#borderWidth default:0.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1423	DefaultViewBackgroundColor := styleSheet colorAt:#viewBackground default:bgGrey.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1424	DefaultShadowColor := styleSheet colorAt:#shadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1425	DefaultLightColor := styleSheet colorAt:#lightColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1426	DefaultFocusColor := styleSheet colorAt:#focusColor default:Color red.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1427	DefaultFocusBorderWidth := styleSheet at:'focusBorderWidth' default:2.
151 8123ec03c52f . claus parents: 145 diff changeset	1428	].
135 cf8e46015072 . claus parents: diff changeset	1429
526 3ba5c3844c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 522 diff changeset	1430	self == SimpleView ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1431	DefaultFont := styleSheet at:#font.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1432	DefaultFont isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1433	DefaultFont := Font family:'courier' face:'medium' style:'roman' size:12.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1434	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1435	DefaultFont := DefaultFont onDevice:currentScreen.
527 743c5f8b932e defaultFont style caching was wrong Claus Gittinger <cg@exept.de> parents: 526 diff changeset	1436	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1437	DefaultFont := nil
135 cf8e46015072 . claus parents: diff changeset	1438	].
cf8e46015072 . claus parents: diff changeset	1439
cf8e46015072 . claus parents: diff changeset	1440	DefaultViewBackgroundColor isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1441	'SimpleView [warning]: bad viewBackground in style - using white' errorPrintCR.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1442	DefaultViewBackgroundColor := Color white
5669 bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1443	].
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1444
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1445	"Modified: / 29-04-1997 / 11:16:52 / dq"
bc47f2771650 changed: #updateStyleCache Claus Gittinger <cg@exept.de> parents: 5667 diff changeset	1446	"Modified: / 20-12-2010 / 14:40:22 / cg"
135 cf8e46015072 . claus parents: diff changeset	1447	!
cf8e46015072 . claus parents: diff changeset	1448
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1449	viewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1450	"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	1451	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	1452	get a common look"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1453
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1454	^ ViewSpacing
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1455	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1456
5354 4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	1457
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	1458	!SimpleView class methodsFor:'resources'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1459
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1460	classResources
4091 3995bf25130a classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 4069 diff changeset	1461	"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	1462
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1463	ClassResources isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1464	ClassResources := super classResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1465	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1466	^ ClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1467	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1468
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1469	classResources:aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1470	"allow setting of the classResources"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1471
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1472	ClassResources := aResourcePack
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1473	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1474
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1475	flushAllClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1476	"flush all classes resource translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1477	Needed after a resource file has changed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1478
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1479	ResourcePack flushCachedResourcePacks.
3378 0792856b9ce5 * empty log message * Claus Gittinger <cg@exept.de> parents: 3377 diff changeset	1480	SimpleView withAllSubclassesDo:[:aClass \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1481	aClass flushClassResources.
140 0db355079dc4 . claus parents: 138 diff changeset	1482	]
0db355079dc4 . claus parents: 138 diff changeset	1483
0db355079dc4 . claus parents: 138 diff changeset	1484	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1485	View flushAllClassResources
140 0db355079dc4 . claus parents: 138 diff changeset	1486	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1487	"to change the language:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1488	Language := #en.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1489	Smalltalk changed:#Language.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1490	View flushAllClassResources
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1491	or:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1492	Language := #de.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1493	Smalltalk changed:#Language.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1494	View flushAllClassResources
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1495	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1496	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1497
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1498	flushClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1499	"flush classes resource string translations.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1500	Needed whenever a resource file or language has changed"
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	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1503	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1504
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1505	resources
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	1506	"return the view's resources -
5221 3c4682d4b409 comment only Claus Gittinger <cg@exept.de> parents: 5214 diff changeset	1507	that's a ResourcePack containing national language strings"
3c4682d4b409 comment only Claus Gittinger <cg@exept.de> parents: 5214 diff changeset	1508
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1509	^ self classResources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1510
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1511	"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	1512	!
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	1513
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1514	updateClassResources
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1515	"flush classes resource string translations and reload them.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1516	Needed whenever a resource file or language has changed"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1517
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1518	ClassResources := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1519	self classResources
135 cf8e46015072 . claus parents: diff changeset	1520	! !
cf8e46015072 . claus parents: diff changeset	1521
3781 9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1522	!SimpleView class methodsFor:'startup'!
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1523
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1524	open
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1525	"create, realize the view - this topview and all its subviews will
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1526	run as a separate process with its own windowGroup"
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1527
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1528	^ self new open
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1529	!
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1530
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1531	openOnXScreenNamed:aScreenName
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1532	"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	1533	on some X display screen. The argument aScreenName must be
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1534	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	1535	For more info, read the document on multiple display
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1536	support and the documentation of the DeviceWorkstation class."
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1537
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1538	\|newDevice\|
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1539
7790 0c9e3f0b79b7 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7779 diff changeset	1540	(XWorkstation notNil and:[ XWorkstation isLoaded ]) ifFalse:[
0c9e3f0b79b7 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7779 diff changeset	1541	self warn:'Could not open display (no XWorkstation class)'.
0c9e3f0b79b7 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7779 diff changeset	1542	^ self
0c9e3f0b79b7 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7779 diff changeset	1543	].
0c9e3f0b79b7 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7779 diff changeset	1544
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1545	[
7790 0c9e3f0b79b7 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7779 diff changeset	1546	newDevice := XWorkstation newDispatchingFor:aScreenName.
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1547	] on:Screen deviceOpenErrorSignal do:[:ex\|
7790 0c9e3f0b79b7 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7779 diff changeset	1548	self warn:'Could not open display: ' , aScreenName.
0c9e3f0b79b7 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7779 diff changeset	1549	^ self
4054 327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1550	].
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1551	^ (self onDevice:newDevice) open.
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1552
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1553	"
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1554	FileBrowser openOnXScreenNamed:'bitsy:0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1555	FileBrowser openOnXScreenNamed:':0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1556	View openOnXScreenNamed:'bitsy:0'
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1557	"
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1558
327834fa21cd +openOnDevice: Claus Gittinger <cg@exept.de> parents: 4049 diff changeset	1559	"Modified: 13.1.1997 / 20:55:27 / cg"
3781 9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1560	! !
9404bb21b63f open pushed up from StdSysView martin parents: 3775 diff changeset	1561
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	1562	!SimpleView methodsFor:'Compatibility-ST80'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1563
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1564	checkForEvents
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1565	"ST-80 compatibility:
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1566	check for any pending events and process them"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1567
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1568	(shown and:[windowGroup notNil]) ifTrue:[windowGroup processEvents].
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1569
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1570	"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	1571	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1572
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1573	closeAndUnschedule
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1574	"actually sent to a controller in VW...
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1575	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	1576
3316 b9cb3eac524e * empty log message * Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	1577	self topView destroy
3164 f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1578	!
f3dce6ea8e3f VW compatibility: closeAndUnschedule Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	1579
3775 fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1580	displayOn:aGCOrStream
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1581	"ST-80 compatibility: (re-)display myself"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	1582
3775 fc3a650b3e3c displayOn confusion Claus Gittinger <cg@exept.de> parents: 3774 diff changeset	1583	"/ what a kludge - Dolphin and Squeak mean: printOn:;
7933 e2afc749c8c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7919 diff changeset	1584	"/ old ST80 means: draw-yourself on a GC.
6546 1341805eb06c displayOn: cleanup Claus Gittinger <cg@exept.de> parents: 6536 diff changeset	1585	(aGCOrStream isStream) ifTrue:[
7933 e2afc749c8c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7919 diff changeset	1586	^ super displayOn:aGCOrStream
3774 a85ec40ac028 displayOn: confusion kludge tm parents: 3765 diff changeset	1587	].
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1588	self redraw
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	1589
7933 e2afc749c8c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7919 diff changeset	1590	"Created: / 04-06-1996 / 21:25:59 / cg"
e2afc749c8c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7919 diff changeset	1591	"Modified: / 10-01-1997 / 19:46:58 / cg"
e2afc749c8c1 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7919 diff changeset	1592	"Modified (comment): / 22-02-2017 / 16:52:00 / cg"
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1593	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1594
1432 23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1595	displayPendingInvalidation
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1596	"dummy - for ST-80 compatibility"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1597
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1598	"Created: 6.3.1997 / 15:17:14 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1599	"Modified: 6.3.1997 / 15:17:31 / cg"
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1600	!
23fa07be585a checkin from browser Claus Gittinger <cg@exept.de> parents: 1427 diff changeset	1601
4515 ecbf26955b5b client:spec:builder: bogus masterApp handling Claus Gittinger <cg@exept.de> parents: 4502 diff changeset	1602	invalidateRectangle:aRectangle repairNow:doRepairNow
ecbf26955b5b client:spec:builder: bogus masterApp handling Claus Gittinger <cg@exept.de> parents: 4502 diff changeset	1603	self invalidate:aRectangle repairNow:doRepairNow
ecbf26955b5b client:spec:builder: bogus masterApp handling Claus Gittinger <cg@exept.de> parents: 4502 diff changeset	1604	!
ecbf26955b5b client:spec:builder: bogus masterApp handling Claus Gittinger <cg@exept.de> parents: 4502 diff changeset	1605
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1606	isEnabled
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1607	"return true, if this view is enabled (i.e. accepts user interaction).
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1608	Most views are enabled - only a few (buttons, SelectionInList etc.) can
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1609	be disabled.
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1610	#isEnabled is ST-80's equivalent of #enabled"
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1611
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	1612	^ self enabled
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1613	!
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1614
2061 25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1615	isOpen
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1616	"ST80 compatibility"
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1617
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1618	^ realized
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1619
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1620
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1621	!
25c1fcc1d7e8 added #isOpen for ST80 compatibility Claus Gittinger <cg@exept.de> parents: 2037 diff changeset	1622
2159 da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1623	lookPreferences:prefs
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1624	"ignored - but required for some apps"
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1625
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1626	"Created: / 19.6.1998 / 00:05:10 / cg"
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1627	!
da3337e54241 checkin from browser Claus Gittinger <cg@exept.de> parents: 2158 diff changeset	1628
1413 e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1629	newLayout:aLayoutObject
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1630	"set the layout object which controls my geometry.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1631	ST80-compatibility."
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1632
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1633	here layout:aLayoutObject.
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1634
e1182f8efc7e * empty log message * Claus Gittinger <cg@exept.de> parents: 1409 diff changeset	1635	"Created: 3.3.1997 / 18:54:53 / cg"
1427 35214ddde67c checkin from browser ca parents: 1425 diff changeset	1636	!
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1637
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1638	refresh
35214ddde67c checkin from browser ca parents: 1425 diff changeset	1639	self invalidate
3909 e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1640	!
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1641
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1642	takeKeyboardFocus
e22a5151d23c compatibility Claus Gittinger <cg@exept.de> parents: 3901 diff changeset	1643	self requestFocus
151 8123ec03c52f . claus parents: 145 diff changeset	1644	! !
8123ec03c52f . claus parents: 145 diff changeset	1645
3880 c4c8268a2d9f method category rename Claus Gittinger <cg@exept.de> parents: 3856 diff changeset	1646	!SimpleView methodsFor:'Compatibility-Squeak'!
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1647
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1648	insetDisplayBox
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1649	"Squeak mimicri: return my bounds"
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1650
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1651	^ 0@0 corner:(self corner)
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1652
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1653	! !
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	1654
2450 06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1655	!SimpleView methodsFor:'accessing'!
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1656
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1657	client:anApplicationModel
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1658	"release existing components and generate new components from
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1659	the applications windowSpec.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1660	ATTENTION: this is a low level interface; postBuild is NOT invoked"
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1661
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1662	^ self client:anApplicationModel spec:#windowSpec
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1663
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1664
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1665	!
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1666
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1667	client:anApplication spec:aWindowSpecOrSelector
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1668	"release existing components and generate new components from
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1669	the applications windowSpec.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1670	ATTENTION: this is a low level interface; postBuild is NOT invoked"
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1671
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1672	^ self client:anApplication spec:aWindowSpecOrSelector builder:nil
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1673
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1674	!
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1675
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1676	client:anApplication spec:aWindowSpecOrSpecSymbol builder:aBuilder
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1677	"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	1678	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	1679
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1680	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	1681	!
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1682
97096c51797d can now control if specs menu is wanted or not Claus Gittinger <cg@exept.de> parents: 4483 diff changeset	1683	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	1684	"release existing components and generate new components from
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1685	the given windowSpec, using the given builder.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1686	ATTENTION: this is a low level interface.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1687	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	1688	or at least well documented."
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1689
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1690	\|builder subSpec isApplicationModel thisApp savedView masterApp thisIsANewBuild\|
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	aWindowSpecOrSpecSymbol isNil ifTrue:[^ self].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1693
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1694	isApplicationModel := true.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1695
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1696	(builder := aBuilder) isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1697	"/ problem: anApplication could have no builder
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1698	"/ or anApplication could be a non-appModel (theoretically - only providing a spec)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1699	builder := anApplication perform:#builder ifNotUnderstood:[isApplicationModel := false. nil].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1700	builder isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1701	isApplicationModel ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1702	anApplication createBuilder.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1703	builder := anApplication builder
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1704	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1705	builder := UIBuilder new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1706	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1707	]
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1708	].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1709
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1710	(subSpec := aWindowSpecOrSpecSymbol) isSymbol ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1711	anApplication isNil ifTrue:[^ self].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1712	subSpec := anApplication interfaceSpecFor:aWindowSpecOrSpecSymbol.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1713	subSpec isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1714	^ self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1715	].
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1716	].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1717
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1718	"/ 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	1719	"/ we have to temporarily change the builders window
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1720
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1721	masterApp := anApplication perform:#masterApplication ifNotUnderstood:[isApplicationModel := false. nil].
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	1722	masterApp isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1723	isApplicationModel := false.
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	1724	].
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1725	thisApp := builder application.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1726	(isApplicationModel and:[anApplication ~~ thisApp]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1727	masterApp ~~ thisApp ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1728	self error:'should not happen' mayProceed:true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1729	masterApp isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1730	anApplication masterApplication:thisApp.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1731	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1732	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1733
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1734	builder application:anApplication.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1735	savedView := builder window.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1736	builder window:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1737	[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1738	anApplication buildSubCanvas:subSpec withMenu:withMenuBoolean withBuilder:builder.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1739	] ensure:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1740	builder window:savedView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1741	builder application:thisApp.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1742	].
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1743	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1744	thisIsANewBuild := builder window isNil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1745	thisIsANewBuild ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1746	builder window:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1747	anApplication buildSubCanvas:subSpec withMenu:withMenuBoolean withBuilder:builder.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1748	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1749	"/ WARNING: in case of rebuilding, we do NOT invoke pre- and postBuilds
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1750	builder buildFromSpec:subSpec in:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1751	]
4483 e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1752	].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1753
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1754	"/ postBuildWith: will be called twice if code below is enabled
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1755	"/ notAnAppModel isNil ifTrue:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1756	"/ notAnAppModel := (anApplication isKindOf:ApplicationModel) not
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1757	"/ ].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1758	"/ notAnAppModel ifTrue:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1759	"/ builder buildFromSpec:subSpec in:self.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1760	"/ ] ifFalse:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1761	"/ savedView := builder window.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1762	"/ builder window:self.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1763	"/ [
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1764	"/ anApplication buildSubCanvas:subSpec withBuilder:builder.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1765	"/ ] ensure:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1766	"/ savedView notNil ifTrue:[
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1767	"/ builder window:savedView.
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1768	"/ ]
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1769	"/ ].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1770	"/ ].
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1771	!
e4b462900404 category change Claus Gittinger <cg@exept.de> parents: 4482 diff changeset	1772
8049 419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1773	flyByHelpText
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1774	"Any optional, dynamically assigned helptext.
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1775	If it was never set (via flyByHelpText:), then the normal mechanism
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1776	(using a helpKey and asking the app for the corresponding text) is used."
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1777
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1778	^ self objectAttributeAt:#flyByHelpText
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1779
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1780	"Created: / 13-07-2017 / 14:35:53 / cg"
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1781	!
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1782
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1783	flyByHelpText:aString
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1784	"Any optional, dynamically assigned helptext.
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1785	If it is never set (via flyByHelpText:), then the normal mechanism
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1786	(using a helpKey and asking the app for the corresponding text) is used.
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1787	Warning:
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1788	Only use explicit helpTexts for very dynamic tooltips, which cannot be generated via
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1789	the regular (language-xlated) helpKey mechanism."
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1790
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1791	^ self objectAttributeAt:#flyByHelpText put:aString
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1792
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1793	"Created: / 13-07-2017 / 14:35:59 / cg"
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1794	!
419159099481 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 8048 diff changeset	1795
8067 80eeb17e4815 #OTHER by mawalch mawalch parents: 8052 diff changeset	1796	flyByHelpTextAt:srcPoint
80eeb17e4815 #OTHER by mawalch mawalch parents: 8052 diff changeset	1797	"fallback to avoid DNU for those which do a super (which they should not)"
80eeb17e4815 #OTHER by mawalch mawalch parents: 8052 diff changeset	1798
80eeb17e4815 #OTHER by mawalch mawalch parents: 8052 diff changeset	1799	^ nil
80eeb17e4815 #OTHER by mawalch mawalch parents: 8052 diff changeset	1800
80eeb17e4815 #OTHER by mawalch mawalch parents: 8052 diff changeset	1801	"Created: / 13-07-2017 / 14:35:53 / cg"
80eeb17e4815 #OTHER by mawalch mawalch parents: 8052 diff changeset	1802	!
80eeb17e4815 #OTHER by mawalch mawalch parents: 8052 diff changeset	1803
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1804	helpKey
7336 14cd48df32ee #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7310 diff changeset	1805	"The helpKey (symbol) or nil.
14cd48df32ee #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7310 diff changeset	1806	This can be set programatically, in views which are constructed
8048 a01bddfd09a6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8039 diff changeset	1807	'by hand' - i.e. not via the UI painter.
7336 14cd48df32ee #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7310 diff changeset	1808	When constructed from a UI-spec, this key is typically specified there
14cd48df32ee #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7310 diff changeset	1809	(however, special apps may change it dynamically, if a component changes
14cd48df32ee #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7310 diff changeset	1810	its semantic meaning dynamically)"
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	1811
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1812	^ helpKey
8048 a01bddfd09a6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8039 diff changeset	1813
a01bddfd09a6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8039 diff changeset	1814	"Modified (comment): / 13-07-2017 / 14:18:41 / cg"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1815	!
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	1816
7337 db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1817	helpKey:aSymbolOrNil
db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1818	"The helpKey (symbol) or nil.
db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1819	This can be set programatically, in views which are constructed
8048 a01bddfd09a6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8039 diff changeset	1820	'by hand' - i.e. not via the UI painter.
7337 db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1821	When constructed from a UI-spec, this key is typically specified there
db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1822	(however, special apps may change it dynamically, if a component changes
db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1823	its semantic meaning dynamically)"
db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1824
db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1825	helpKey := aSymbolOrNil.
8048 a01bddfd09a6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8039 diff changeset	1826
a01bddfd09a6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8039 diff changeset	1827	"Modified (comment): / 13-07-2017 / 14:18:50 / cg"
a01bddfd09a6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8039 diff changeset	1828	!
a01bddfd09a6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8039 diff changeset	1829
2450 06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1830	keyboardProcessor
7337 db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1831	"return my keyboard processor.
db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1832	If non-nil, that one gets a chance to intercept and deal with things like
db8f09c46475 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7336 diff changeset	1833	escape or return in modal boxes."
2450 06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1834
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1835	^ nil
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1836
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1837	"Created: / 13.2.1999 / 10:31:39 / cg"
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1838	! !
06d76ede2dda checkin from browser Claus Gittinger <cg@exept.de> parents: 2430 diff changeset	1839
2549 9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1840	!SimpleView methodsFor:'accessing-behavior'!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1841
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1842	disable
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1843	"alternative method; redirected to basic mechanism"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1844
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1845	self enabled:false
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1846
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1847	"Modified: / 30.3.1999 / 14:47:30 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1848	"Created: / 30.3.1999 / 15:54:11 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1849	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1850
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1851	enable
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1852	"alternative method; redirected to basic mechanism"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1853
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1854	self enabled:true
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1855
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1856	"Modified: / 30.3.1999 / 14:47:22 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1857	"Created: / 30.3.1999 / 15:54:16 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1858	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1859
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1860	enabled
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1861	"views are enabled by default"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1862
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1863	^ true
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1864
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1865	"Modified: / 30.3.1999 / 16:27:57 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1866	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1867
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1868	enabled:bool
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1869	"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	1870	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	1871
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1872	"Modified: / 30.3.1999 / 14:46:24 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1873	"Created: / 30.3.1999 / 15:54:21 / stefan"
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1874	!
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1875
7838 914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	1876	isEnabled:aBoolean
2549 9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1877	"ST-80 compatibility; set enabled state
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1878	"
7838 914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	1879	self enabled:aBoolean
914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	1880
914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	1881	"Created: / 30-03-1999 / 15:54:29 / stefan"
914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	1882	"Modified (format): / 04-02-2017 / 21:34:39 / cg"
6132 732fec785d8d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6127 diff changeset	1883	!
732fec785d8d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6127 diff changeset	1884
6845 fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1885	preferFirstInputFieldWhenAssigningInitialFocus
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1886	"define the focus behavior for dialogs.
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1887	If true is returned, input fields take precedence over other keyboard consumers.
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1888	This used to return true, but the behavior is somewhat ugly."
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1889
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1890	^ false
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1891
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1892	"Created: / 29-08-2006 / 14:28:54 / cg"
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1893	!
fdb621c14223 class: SimpleView Michael Beyl <mb@exept.de> parents: 6798 diff changeset	1894
6132 732fec785d8d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6127 diff changeset	1895	readOnly:aBoolean
732fec785d8d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6127 diff changeset	1896	"ignored here; present for compatibility with some textView subclasses,
732fec785d8d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6127 diff changeset	1897	so that UIPainter can handle it in its TextView spec (which contains a
732fec785d8d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6127 diff changeset	1898	readOnly field)"
2549 9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1899	! !
9c57f5897a90 Common enable/disable/enabled:/isEnabled: Protocol Stefan Vogel <sv@exept.de> parents: 2540 diff changeset	1900
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1901	!SimpleView methodsFor:'accessing-bg & border'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	1902
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1903	allSubViewsBackground:something
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1904	"set the viewBackground to something, a color, image or form,
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1905	recursively in all of my subviews"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1906
4958 bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1907	self allSubViewsBackground:something if:[:v \|true]
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1908	!
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1909
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1910	allSubViewsBackground:something if:condition
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1911	"set the viewBackground to something, a color, image or form,
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1912	recursively in all of my subviews"
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1913
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1914	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1915	subViews do:[:v\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1916	v allViewBackground:something if:condition
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1917	]
3356 d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1918	]
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1919
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1920	"Modified: / 18.7.1996 / 13:34:26 / cg"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1921	"Created: / 31.10.2000 / 13:06:02 / bg"
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1922	!
d3f6fd88e766 extracted allSubViewsBackground: from allViewBackground: Claus Gittinger <cg@exept.de> parents: 3345 diff changeset	1923
4897 12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1924	allSubViewsForeground:something
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1925	"set the foreground to something, a color, image or form,
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1926	recursively in all of my subviews"
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1927
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1928	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1929	subViews do:[:v\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1930	v allViewForeground:something
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1931	]
4897 12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1932	]
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1933	!
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1934
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1935	allViewBackground:something
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1936	"set the viewBackground to something, a color, image or form,
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1937	in myself and recursively in all of my subviews"
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1938
4958 bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1939	self allViewBackground:something if:[:v \|true]
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1940	!
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1941
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1942	allViewBackground:something if:condition
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1943	"set the viewBackground to something, a color, image or form,
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1944	in myself and recursively in all of my subviews"
bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1945
6606 e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	1946	self viewBackground:something if:condition.
4958 bfa2bf30f449 allViewBackground: with optional condition sr parents: 4942 diff changeset	1947	self allSubViewsBackground:something if:condition
955 34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1948	!
34b6c1529fdc checkin from browser Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1949
4897 12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1950	allViewForeground:something
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1951	"set the foreground to something, a color, image or form,
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1952	in myself and recursively in all of my subviews"
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1953
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1954	self foregroundColor:something.
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1955	self allSubViewsForeground:something
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1956
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1957	"Modified: / 31.10.2000 / 13:06:17 / bg"
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1958	!
12e882ab6ecf +allViewForeground: Claus Gittinger <cg@exept.de> parents: 4891 diff changeset	1959
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1960	backgroundColor
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1961	"return the background color of the contents -
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1962	here, (since there is no contents), the viewBackground is returned."
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1963
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1964	^ self viewBackground
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1965
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1966	"Modified: / 3.5.1997 / 10:28:04 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1967	"Created: / 18.6.1998 / 15:59:36 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1968	!
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	1969
1726 51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1970	backgroundColor:aColor
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1971	"set the background color of the contents -
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1972	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	1973
4192 6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1974	self viewBackground:aColor.
6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1975	shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1976	self clear; invalidate.
4192 6c14a21d5600 invalidate on backgroundChange ca parents: 4191 diff changeset	1977	].
1726 51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1978
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1979	"Created: 3.5.1997 / 10:26:49 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1980	"Modified: 3.5.1997 / 10:28:04 / cg"
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1981	!
51b0f8ed7572 added #backgroundColor: - for protocol completeness Claus Gittinger <cg@exept.de> parents: 1716 diff changeset	1982
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1983	border
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1984	"return my border"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1985
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1986	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	1987	^ superView border
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1988	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1989
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1990	^ border
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
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1993	border:aBorder
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1994	"set my border"
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1995
6716 e9b2ebb0e8cf class: SimpleView Claus Gittinger <cg@exept.de> parents: 6709 diff changeset	1996	\|prevMargin m\|
e9b2ebb0e8cf class: SimpleView Claus Gittinger <cg@exept.de> parents: 6709 diff changeset	1997
e9b2ebb0e8cf class: SimpleView Claus Gittinger <cg@exept.de> parents: 6709 diff changeset	1998	prevMargin := margin.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	1999	border := aBorder.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2000	self computeMargin.
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	2001	realized ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2002	m := prevMargin max:margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2003	self invalidate:(0@0 corner:width@m). "/ top margin
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2004	self invalidate:((width-m)@m corner:width@height). "/ right margin
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2005	self invalidate:(0@(height-m) corner:width@height). "/ bottom margin
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2006	self invalidate:(0@m corner:m@(height-m)). "/ left margin
6720 a5858f01bcd8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6719 diff changeset	2007	].
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2008	!
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2009
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2010	borderColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2011	"return my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2012
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2013	\|clr\|
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2014
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2015	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2016	^ superView borderColor
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2017	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2018
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2019	"/ ^ borderColor
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2020	border notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2021	clr := border color
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	2022	].
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2023	clr isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2024	^ self blackColor
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2025	].
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2026	^ clr.
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2027
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2028	"Modified: 5.6.1996 / 14:11:44 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2029	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2030
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2031	borderColor:aColor
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2032	"set my borderColor"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2033
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2034	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2035	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2036	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2037	superView borderColor:aColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2038	^ self
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2039	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2040
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2041	aColor isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2042	border isNil ifTrue:[^ self].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2043	self border:nil.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2044	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2045	aColor = (self borderColor) ifTrue:[^ self].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2046	self border:(SimpleBorder new width:(self borderWidth) color:aColor)
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2047	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2048	self invalidate.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2049
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2050	"/ (aColor ~~ borderColor) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2051	"/ borderColor := aColor.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2052	"/ drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2053	"/ self setBorderColor
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2054	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2055	"/ ]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2056
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2057	"Modified: 5.6.1996 / 14:11:50 / cg"
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2058	"Modified: 23.10.2009 / 14:11:50 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2059	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2060
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2061	borderShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2062	"set the borderShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2063
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	2064	aForm isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2065	viewShape := nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2066	self drawableId notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2067	device setWindowBorderShape:nil in:self drawableId
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2068	]
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2069	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2070	viewShape isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2071	viewShape := ArbitraryViewShape new
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2072	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2073	viewShape borderShapeForm:aForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2074	self drawableId notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2075	device setWindowBorderShape:(aForm id) in:self drawableId
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2076	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2077	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	2078
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	2079	"Modified: 18.9.1997 / 11:09:40 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2080	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2081
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2082	borderWidth
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2083	"return my borderWidth"
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2084
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2085	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2086	^ superView borderWidth
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2087	].
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2088
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2089	border isNil ifTrue:[^ 0].
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2090	^ border width ? 0
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2091
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2092	"Modified: 5.6.1996 / 14:11:57 / cg"
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2093	"Modified: 23.10.2009 / 14:11:50 / cg"
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2094	!
6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2095
6515 5d55e5781b73 class: SimpleView ca parents: 6490 diff changeset	2096	borderWidth:aNumberOrNil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2097	"set my borderWidth"
6515 5d55e5781b73 class: SimpleView ca parents: 6490 diff changeset	2098	\|aNumber\|
5d55e5781b73 class: SimpleView ca parents: 6490 diff changeset	2099
5d55e5781b73 class: SimpleView ca parents: 6490 diff changeset	2100	aNumber := aNumberOrNil.
5d55e5781b73 class: SimpleView ca parents: 6490 diff changeset	2101	aNumber notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2102	self assert:(aNumber >= 0).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2103	aNumber := aNumber max: 0
6515 5d55e5781b73 class: SimpleView ca parents: 6490 diff changeset	2104	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2105
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2106	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2107	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2108	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2109	^ superView borderWidth:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2110	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2111
5422 b43b5950922d changed: Claus Gittinger <cg@exept.de> parents: 5414 diff changeset	2112	(aNumber == 0 or:[aNumber isNil]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2113	border isNil ifTrue:[^ self].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2114	self border:nil.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2115	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2116	border notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2117	self border:(border copy width:aNumber)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2118	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2119	self border:(SimpleBorder new width:aNumber color:(self borderColor)).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2120	]
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2121	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2122
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2123	"/ (aNumber ~~ borderWidth) ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2124	"/ borderWidth := aNumber.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2125	"/ drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2126	"/ self setBorderWidth.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2127	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2128	"/ ]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2129
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2130	"Modified: 5.6.1996 / 14:12:05 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2131	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2132
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2133	computeMargin
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2134	border isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2135	margin := level abs.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2136	^ self.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2137	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2138	margin := border width.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2139	!
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2140
4150 9a7c1160bbd5 tbox werner parents: 4139 diff changeset	2141	fillFormWithBorderShape:aForm
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	2142	"fill aForm with my borderShape"
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	2143
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	2144	aForm fillRectangle:(Rectangle origin:self origin corner:self corner).
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	2145	!
9a7c1160bbd5 tbox werner parents: 4139 diff changeset	2146
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2147	foregroundColor
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2148	"return the foreground color of the contents -
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2149	here, (since there is no contents), some default is returned."
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2150
7429 12036015c6cc #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7419 diff changeset	2151	^ self blackColor
2158 948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2152
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2153	"Modified: / 3.5.1997 / 10:28:04 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2154	"Created: / 18.6.1998 / 16:57:33 / cg"
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2155	!
948fe768cd36 added #foregroundColor & backgroundColor Claus Gittinger <cg@exept.de> parents: 2143 diff changeset	2156
3392 70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2157	foregroundColor:aColor
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2158	"set the foreground color of the contents -
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2159	ignored here, since there is no contents."
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2160	!
70bf6d99f0c5 dummy #foregroundColor: Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	2161
4966 3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2162	foregroundColor:fgColor backgroundColor:bgColor
3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2163	"set both the foreground and background colors of the contents"
3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2164
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	2165	self
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2166	foregroundColor:fgColor;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2167	backgroundColor:bgColor
4966 3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2168	!
3a8ffabd2fa3 changed #foregroundColor:backgroundColor: Claus Gittinger <cg@exept.de> parents: 4964 diff changeset	2169
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2170	level
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2171	"return my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2172
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2173	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2174	^ superView level
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2175	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2176	border notNil ifTrue:[^ border level].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2177	^ level
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2178
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2179	"Modified: 5.6.1996 / 14:12:10 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2180	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2181
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2182	level:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2183	"set my level relative to superView (3D)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2184
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2185	\|oldMargin how\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2186
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2187	"/ backward compatibility
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2188	"/ superView will be renamed to container soon.
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2189	(superView notNil and:[superView isBorderedWrapper]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2190	^ superView level:aNumber
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2191	].
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2192
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2193	(aNumber ~~ level and:[aNumber notNil]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2194	self is3D ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2195	level := aNumber.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2196	oldMargin := margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2197	margin := level abs.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2198
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2199	realized ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2200	margin ~~ oldMargin ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2201	(margin > oldMargin) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2202	how := #smaller
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2203	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2204	how := #larger
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2205	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2206	self sizeChanged:how.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2207	self setInnerClip.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2208	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2209	shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2210	margin ~~ oldMargin ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2211	self clearView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2212	self redrawX:margin y:margin
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2213	width:width-(margin*2)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2214	height:height-(margin*2)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2215	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2216	self redrawEdges.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2217	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2218	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2219	]
135 cf8e46015072 . claus parents: diff changeset	2220	]
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2221
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	2222	"Modified: 5.6.1996 / 14:12:17 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2223	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2224
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2225	lightColor
6987 46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	2226	"return the color to be used for lighted edges (3D only)"
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	2227
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	2228	lightColor isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2229	\|avgColor\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2230
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2231	avgColor := viewBackground averageColorIn:(0@0 corner:7@7).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2232	lightColor := avgColor lightened.
6987 46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	2233	].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2234	^ lightColor
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2235	!
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2236
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2237	lightColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2238	"set the color to be used for lighted edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2239
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2240	lightColor := aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2241	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2242
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2243	margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	2244	"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	2245	but can be more for some views
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	2246	(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	2247
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2248	^ margin
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	2249
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	2250	"Modified: 5.6.1996 / 14:37:54 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2251	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2252
5405 369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2253	setBorderWidth
369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2254	"set my borderWidth in the devices physical view"
369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2255
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2256	"/ \|bw\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2257	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2258	"/ bw := borderWidth.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2259	"/ (device supportsWindowBorder:bw) ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2260	"/ bw > 1 ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2261	"/ (device supportsWindowBorder:(bw := 1)) ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2262	"/ ^ self
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2263	"/ ].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2264	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2265	"/ ].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2266	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2267	"/ drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2268	"/ device setWindowBorderWidth:bw in:drawableId
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2269	"/ ]
5405 369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2270	!
369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	2271
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2272	setBorderWidth:aNumber
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2273	"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	2274
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	2275	"/ borderWidth := aNumber
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	2276	self borderWidth:aNumber
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2277	!
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2278
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2279	shadowColor
6987 46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	2280	"return the color to be used for shadowed edges (3D only)"
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	2281
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	2282	shadowColor isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2283	\|avgColor\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2284
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2285	avgColor := viewBackground averageColorIn:(0@0 corner:7@7).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2286	shadowColor := avgColor darkened.
6987 46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	2287	].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2288	^ shadowColor
3698 73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2289	!
73fedcfc2d1d accessor added Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	2290
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2291	shadowColor:aColorOrImage
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2292	"set the color to be used for shadowed edges (3D only)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2293
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2294	shadowColor := aColorOrImage
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
7869 9dc837d25781 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7845 diff changeset	2297	viewBackground:aColorOrFormOrViewBackground
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2298	"set the viewBackground to something, a color, image or form.
7869 9dc837d25781 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7845 diff changeset	2299	If it's a color and we run on a color display, also set shadow and light
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2300	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	2301	edges."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2302
2584 55a405cec086 when lighting/darkening colors, take the average in the topLeft Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	2303	\|avgColor\|
55a405cec086 when lighting/darkening colors, take the average in the topLeft Claus Gittinger <cg@exept.de> parents: 2583 diff changeset	2304
1808 b3485bfc7acf checkin from browser Claus Gittinger <cg@exept.de> parents: 1761 diff changeset	2305	"/ debug check only:
7988 d2d9f0502006 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7986 diff changeset	2306	"/ not good - we can set the viewBackground to nil!!
d2d9f0502006 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7986 diff changeset	2307	"/ self assert:(aColorOrFormOrViewBackground notNil) message:'invalid viewBackground argument'.
7869 9dc837d25781 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7845 diff changeset	2308
9dc837d25781 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7845 diff changeset	2309	aColorOrFormOrViewBackground isColor ifTrue:[
7638 cad04b8422f5 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7628 diff changeset	2310	(device notNil and:[device hasGrayscales]) ifTrue:[
7869 9dc837d25781 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7845 diff changeset	2311	avgColor := aColorOrFormOrViewBackground averageColorIn:(0@0 corner:7@7).
7638 cad04b8422f5 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7628 diff changeset	2312	shadowColor := avgColor darkened "on:device".
cad04b8422f5 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7628 diff changeset	2313	lightColor := avgColor lightened "on:device".
cad04b8422f5 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7628 diff changeset	2314	]
135 cf8e46015072 . claus parents: diff changeset	2315	].
7869 9dc837d25781 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7845 diff changeset	2316	super viewBackground:aColorOrFormOrViewBackground
9dc837d25781 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7845 diff changeset	2317
7988 d2d9f0502006 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7986 diff changeset	2318	"Modified: / 20-03-2017 / 15:58:59 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2319	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2320
6606 e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	2321	viewBackground:something if:condition
e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	2322	"set the viewBackground to something, a color, image or form,
e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	2323	in myself and recursively in all of my subviews"
e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	2324
e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	2325	(condition value:self) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2326	viewBackground ~~ something ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2327	self viewBackground:something.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2328	self invalidate
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2329	].
6606 e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	2330	].
e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	2331	!
e961c7adbbf7 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6604 diff changeset	2332
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2333	viewShape:aForm
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2334	"set the viewShape to aForm"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2335
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	2336	aForm isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2337	viewShape := nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2338	self drawableId notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2339	device setWindowShape:nil in:self drawableId
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2340	]
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2341	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2342	viewShape isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2343	viewShape := ArbitraryViewShape new
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2344	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2345
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2346	viewShape viewShapeForm:aForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2347	self drawableId notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2348	device setWindowShape:(aForm id) in:self drawableId
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2349	]
135 cf8e46015072 . claus parents: diff changeset	2350	]
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	2351
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	2352	"Modified: 18.9.1997 / 11:11:04 / cg"
269 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
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2355	!SimpleView methodsFor:'accessing-channels'!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2356
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2357	setupChannel:newChannel for:changeSelector withOld:oldChannel
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2358	"common code to change a channel.
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2359	If changeSelector is non-nil, arrange for it to be sent when
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2360	the channel changes its value; otherwise, arrange for a simple update.
7729 0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2361	This is so common, that it's worth a helper method:
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2362	release any old channel (if non-nil),
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2363	arrange for changeSelector (or #update) to be sent for the new channel."
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2364
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2365	\|oldValue\|
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2366
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2367	oldChannel == newChannel ifTrue:[^ self].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2368
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2369	oldChannel notNil ifTrue:[
7729 0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2370	changeSelector isNil ifTrue:[
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2371	oldChannel removeDependent:self
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2372	] ifFalse:[
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2373	oldChannel retractInterestsFor:self.
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2374	].
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2375	oldValue := oldChannel value.
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2376	].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2377	newChannel notNil ifTrue:[
7729 0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2378	changeSelector isNil ifTrue:[
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2379	newChannel addDependent:self.
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2380	newChannel value ~~ oldValue ifTrue:[
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2381	self update:#value with:nil from:newChannel.
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2382	]
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2383	] ifFalse:[
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2384	newChannel onChangeSend:changeSelector to:self.
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2385	newChannel value ~~ oldValue ifTrue:[
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2386	self perform:changeSelector.
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2387	]
0f3e3a39bc44 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7728 diff changeset	2388	]
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2389	].
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2390
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2391	^ newChannel
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2392
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2393	"Modified: / 31.10.1997 / 14:47:21 / cg"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2394	! !
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	2395
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2396	!SimpleView methodsFor:'accessing-contents'!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2397
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2398	heightOfContents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2399	"return the height of the contents in logical units
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2400	- defaults to view's visible area here.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2401	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	2402	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	2403	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	2404	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	2405	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	2406	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	2407	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	2408	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	2409	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	2410	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2411
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2412	^ (self innerHeight max:(self maxSubViewBottom)) max:self maxComponentBottom
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2413
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2414	"Modified: 26.5.1996 / 12:44:21 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2415	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2416
7023 91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2417	heightOfContentsDependsOnWidth
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2418	"a very special which is only used by the scrollableView,
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2419	to check if it should NOT automatically hide scrollbars, when the
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2420	pointer leaves the view.
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2421	Currently, there are only a small number of views which return true here,
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2422	one being the HTML view, which rearranges its text depending on the width,
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2423	and therefore, it is a bad idea to hide/show scrollbars dynamically"
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	2424
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	2425	^ false
7023 91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2426	!
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2427
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2428	widthOfContents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2429	"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	2430	- defaults to views visible area here.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2431	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	2432	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	2433	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	2434	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	2435	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	2436	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	2437	of the contents being shown. This is called by scrollBars to compute
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2438	the relative width of the document vs. the view's actual width.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2439	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	2440	of this will scale as appropriate."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2441
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2442	^ (self innerWidth max:(self maxSubViewRight)) max:self maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2443
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	2444	"Modified: 26.5.1996 / 13:02:50 / cg"
7023 91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2445	!
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2446
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2447	widthOfContentsDependsOnHeight
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2448	"a very special query which is only used by the scrollableView,
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2449	to check if it should NOT automatically hide scrollbars, when the
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2450	pointer leaves the view.
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2451	Currently, there is no view, which returns true
91423b65ebce #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 7014 diff changeset	2452	(maybe if we ever support chinese writing top to bottom..."
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	2453
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	2454	^ false
422 bb19798ffda1 fixed openAutonomous for new model opening setup Claus Gittinger <cg@exept.de> parents: 420 diff changeset	2455	! !
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	2456
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2457	!SimpleView methodsFor:'accessing-dimensions'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2458
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2459	allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2460	"set all insets; positive makes the view smaller,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2461	negative makes it larger..
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2462	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2463
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2464	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2465	insets := Array new:4.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2466	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2467	insets atAllPut:aNumber.
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	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2470	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2471	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2472	"/ ] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2473	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2474	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2475
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2476	"Modified: 19.7.1996 / 17:30:18 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2477	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2478
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2479	bottom
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2480	"return the y position of the actual bottom edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2481
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2482	^ top + height - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2483	!
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	bottom:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2486	"set the corners y position"
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	self corner:(self corner x @ aNumber)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2489	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2490
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2491	bottomInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2492	"return the inset of the bottom edge; positive is to the top,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2493	negative to the bottom.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2494	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2495
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2496	insets isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2497	^ insets at:4
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2498	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2499
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2500	bottomInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2501	"set the inset of the bottom edge;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2502	positive is to the top (view becomes smaller),
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2503	negative to the bottom (becomes larger).
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2504	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2505
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2506	\|newInset\|
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2507
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2508	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2509	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	2510	].
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2511	newInset := aNumber.
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2512	newInset isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2513	newInset := 0.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2514	].
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2515	(insets at:4) ~= newInset ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2516	insets at:4 put:newInset.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2517	self containerChangedSize
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	2518	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2519
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2520	"Modified: 19.7.1996 / 17:30:22 / cg"
269 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
5547 07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2523	bounds
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2524	"ST-80 compatibility: return my bounds"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2525
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2526	^ (self origin) corner:(self corner)
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2527
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2528	"Created: 4.6.1996 / 21:23:27 / cg"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2529	"Modified: 10.1.1997 / 19:46:21 / cg"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2530	!
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2531
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2532	bounds:aRectangle
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2533	"ST-80 compatibility: change my bounds"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2534
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2535	self explicitExtent:true.
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2536	self pixelOrigin:aRectangle origin
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2537	corner:aRectangle corner
5547 07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2538
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2539	"Created: 4.6.1996 / 21:44:27 / cg"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2540	"Modified: 10.1.1997 / 19:46:36 / cg"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2541	!
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	2542
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2543	center
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2544	"return the point at the center of the receiver (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2545
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2546	^ (left + (width // 2)) @ (top + (height // 2))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2547	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2548
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2549	center:newCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2550	"move the receiver so that newCenter, aPoint becomes the center point"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2551
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2552	self origin:(newCenter - ((width // 2) @ (height // 2)))
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2553	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2554
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2555	computeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2556	"compute my corner; if I have a layoutObject,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2557	relative origins or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2558	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	2559	Returns the corner point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2560
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2561	\|org newCorner newExt x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2562
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2563	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2564	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2565	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2566	layout notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2567	superView isNil ifTrue:[^ self preferredBounds corner].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2568	^ (layout rectangleRelativeTo:(superView viewRectangle)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2569	preferred:[self preferredBounds]) corner rounded
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2570	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2571
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2572	(cornerRule notNil) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2573	newCorner := cornerRule value.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2574	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2575	allow return of relative values ...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2576	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2577	x := newCorner x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2578	y := newCorner y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2579	x isNil ifTrue:[x := self corner x].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2580	y isNil ifTrue:[y := self corner y].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2581	((x isInteger not) or:[y isInteger not]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2582	newCorner := self cornerFromRelativeCorner:x@y
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2583	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2584	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2585	(relativeCorner notNil) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2586	newCorner := self cornerFromRelativeCorner:relativeCorner
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2587	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2588	org := self computeOrigin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2589	(extentRule notNil) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2590	newExt := extentRule value
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2591	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2592	(relativeExtent notNil) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2593	newExt := self extentFromRelativeExtent:relativeExtent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2594	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2595	newExt := self extent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2596	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2597	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2598	newCorner := org + newExt
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2599	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2600	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2601	^ newCorner
1389 8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2602
8ee35214f5eb computeCorner fixed. Claus Gittinger <cg@exept.de> parents: 1381 diff changeset	2603	"Modified: 28.2.1997 / 10:33:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2604	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2605
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2606	computeExtent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2607	"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	2608	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2609	There is one catch here, if the dimension was defined
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2610	by origin/corner, compute them here and take that value.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2611	I.e. origin/corner definition has precedence over extent definition.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2612	Returns the extent in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2613
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2614	\|newOrg newExt newCorner x y\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2615
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2616	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2617	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2618	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2619	layout notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2620	^ (layout rectangleRelativeTo:(superView viewRectangle)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2621	preferred:[self preferredBounds]) extent rounded
135 cf8e46015072 . claus parents: diff changeset	2622	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2623
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2624	(cornerRule notNil) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2625	newCorner := cornerRule value.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2626	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2627	allow return of relative values ...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2628	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2629	x := newCorner x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2630	y := newCorner y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2631	x isNil ifTrue:[x := self corner x].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2632	y isNil ifTrue:[y := self corner y].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2633	((x isInteger not) or:[y isInteger not]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2634	newCorner := self cornerFromRelativeCorner:x@y
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2635	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2636	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2637	(relativeCorner notNil) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2638	newCorner := self cornerFromRelativeCorner:relativeCorner
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2639	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2640	(extentRule notNil) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2641	newExt := extentRule value.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2642	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2643	allow return of relative values ...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2644	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2645	x := newExt x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2646	y := newExt y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2647	x isNil ifTrue:[x := width].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2648	y isNil ifTrue:[y := height].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2649	((x isInteger not) or:[y isInteger not]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2650	newExt := self extentFromRelativeExtent:x@y
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2651	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2652	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2653	(relativeExtent notNil) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2654	newExt := self extentFromRelativeExtent:relativeExtent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2655	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2656	newExt := (width @ height).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2657	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2658	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2659	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2660	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2661
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2662	newCorner notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2663	newOrg := self computeOrigin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2664	^ newCorner - newOrg.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2665	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2666	^ newExt.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2667	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2668
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2669	computeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2670	"compute my origin; if I have a layoutObject, a relative origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2671	or blocks to evaluate, compute it now ..
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2672	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	2673	Returns the origin point in device coordinates (pixels)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2674
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2675	\|newOrg x y\|
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	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2678	slowly migrating to use layoutObjects ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2679	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2680	layout notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2681	superView isNil ifTrue:[^ 0@0].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2682	^ (layout rectangleRelativeTo:(superView viewRectangle)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2683	preferred:[self preferredBounds]) origin rounded
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2686	(originRule notNil) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2687	newOrg := originRule value.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2688	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2689	allow return of relative values ...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2690	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2691	x := newOrg x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2692	y := newOrg y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2693	x isNil ifTrue:[x := self origin x].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2694	y isNil ifTrue:[y := self origin y].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2695	((x isInteger not) or:[y isInteger not]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2696	newOrg := self originFromRelativeOrigin:x@y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2697	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2698	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2699	(relativeOrigin notNil) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2700	newOrg := self originFromRelativeOrigin:relativeOrigin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2701	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2702	^ (left @ top).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2703	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2704	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2705	^ newOrg
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2706	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2707
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2708	corner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2709	"return the lower right corner-point (in pixels)"
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	"/ ^ (left + width "- 1") @ (top + height "- 1")
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2712	^ (left + width - 1) @ (top + height - 1)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2713
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2714	"Modified: 31.8.1995 / 16:51:40 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2715	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2716
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2717	corner:corner
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2718	"set the view's corner;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2719	the corner argument may be:
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2720	a point
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2721	where integer fields mean 'pixel-values'
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2722	and float values mean 'relative-to-superview'
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2723	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2724	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2725	Please migrate to use layoutObjects, if possible."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2726
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2727	\|x y pixelCorner c\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2728
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2729	self explicitExtent:true.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2730
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2731	corner isBlock ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2732	cornerRule := corner.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2733	self drawableId notNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2734	pixelCorner := corner value
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2735	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2736	self extentChangedFlag:true
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2737	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2738	] ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2739	x := corner x.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2740	y := corner y.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2741	x isNil ifTrue:[x := self corner x].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2742	y isNil ifTrue:[y := self corner y].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2743	c := x @ y.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2744	((x isInteger not) or:[y isInteger not]) ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2745	relativeCorner := c.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2746	pixelCorner := self cornerFromRelativeCorner.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2747	pixelCorner isNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2748	self extentChangedFlag:true
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2749	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2750	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2751	pixelCorner := c
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2752	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2753	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2754
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2755	pixelCorner notNil ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2756	self pixelCorner:pixelCorner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2757	]
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2758
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2759	"Modified: 15.7.1996 / 09:51:06 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2760	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2761
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2762	cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2763	"return the corner block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2764
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2765	^ cornerRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2766	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2767
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2768	extent:extent
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2769	"set the view's extent;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2770	extent may be:
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2771	a point
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2772	where integer fields mean 'pixel-values'
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2773	and float values mean 'relative-to-superview'
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2774	and nil means 'leave current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2775	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2776	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	2777	accumulate. Better use origin/corner.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2778	Best: migrate to use layour objects.
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2779
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2780	Notice: this sets the views explicitExtent flag, which prevents it normally
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2781	from resizing itself to its preferredExtent.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2782	See initialExtent: for a variation."
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	\|w h pixelExtent e\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2785
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2786	self explicitExtent:true.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	2787
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2788	extent isBlock ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2789	extentRule := extent.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2790	self drawableId notNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2791	pixelExtent := extent value
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2792	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2793	self extentChangedFlag:true
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2794	]
135 cf8e46015072 . claus parents: diff changeset	2795	] ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2796	extentRule := nil.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2797	w := extent x.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2798	h := extent y.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2799	w isNil ifTrue:[w := width].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2800	h isNil ifTrue:[h := height].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2801	e := w@h.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2802	((w isInteger not) or:[h isInteger not]) ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2803	"/ w > 1 ifTrue:[self halt].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2804	relativeExtent := e.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2805	pixelExtent := self extentFromRelativeExtent.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2806	pixelExtent isNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2807	self extentChangedFlag:true
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2808	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2809	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2810	relativeExtent := nil.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2811	pixelExtent := e
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2812	]
269 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	pixelExtent notNil ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2815	self pixelExtent:pixelExtent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2816	]
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	2817
5571 3f610d50c464 comment Claus Gittinger <cg@exept.de> parents: 5557 diff changeset	2818	"Modified: / 07-07-2010 / 16:44:57 / cg"
269 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
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	2821	extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2822	"return the extent block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2823
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2824	^ extentRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2825	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	2826
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2827	frame
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2828	"compatibility with displayObjects: returns my bounds"
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2829
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2830	^ self bounds
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2831	!
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	2832
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2833	geometryLayout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2834	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2835	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2836	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2837	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	2838	notice."
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	^ here layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2841	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2842
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2843	geometryLayout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2844	"this method will vanish, as soon as all implementations of
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2845	#layout: are removed ...
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2846	(conflict for example in label>>layout:).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2847	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	2848	notice."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2849
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2850	here layout:aLayoutObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2851	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2852
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2853	hasExplicitExtent
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2854	"/ ^ explicitExtent.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2855	^ flagBits bitTest:FlagHasExplicitExtent.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2856	!
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2857
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2858	height:aNumber
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2859	"set the view's height in pixels"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2860
5703 b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	2861	"/ check: the following leads to an error in the notebook...
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	2862	"/ aNumber isInteger ifTrue:[
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	2863	"/ height := aNumber.
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	2864	"/ ] ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2865	self extent:(width @ aNumber)
5703 b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	2866	"/ ].
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	2867
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	2868	"Modified: / 02-02-2011 / 12:16:44 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2869	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2870
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2871	heightIncludingBorder
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2872	"return my height including border
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2873	(this is my height as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2874	while #height returns the height as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2875
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	2876	^ height + (2*self borderWidth)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2877	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2878
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2879	horizontalInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	2880	"set the insets of the left/right edge;
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2881	positive makes it smaller, negative makes it larger.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2882	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2883
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2884	\|newInset\|
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2885
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2886	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2887	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	2888	].
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2889	newInset := aNumber.
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	2890	aNumber isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2891	newInset := 0.
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2892	].
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2893	insets at:1 put:newInset.
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	2894	insets at:3 put:newInset.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2895
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2896	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2897	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	2898	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2899	"/ ] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2900	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2901	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	2902
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2903	"Modified: / 30-09-2006 / 15:19:28 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2904	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2905
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2906	initialExtent:extent
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2907	"set the view's extent, but don't change its explicitExtent setting.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2908	a variant of #extent."
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2909
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2910	\|expl\|
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2911
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2912	expl := self hasExplicitExtent.
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2913	self extent:extent.
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	2914	self explicitExtent:expl
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2915	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2916
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2917	initialHeight:aNumber
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2918	"set the view's height in pixels, but don't change its explicitExtent setting"
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2919
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2920	self initialExtent:(width @ aNumber)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2921	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2922
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2923	initialWidth:aNumber
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	2924	"set the view's width in pixels, but don't change its explicitExtent setting"
1048 f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2925
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2926	self initialExtent:(aNumber @ height)
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2927	!
f6d383b7f113 kludge interface added: #initialExtent / initialWidth & initialHeight dq parents: 1039 diff changeset	2928
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2929	innerHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2930	"return the height of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2931
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2932	(margin == 0) ifTrue:[^ height].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2933	^ height - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2934	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2935
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2936	innerHeight:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2937	"set the height of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2938	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2939
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2940	^ self height:( pixels + (margin + self innerVerticalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2941	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2942
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2943	innerHorizontalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2944	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2945	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2946	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2947
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2948	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2949	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2950
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2951	innerVerticalMargin
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2952	"return any additional inner margin (i.e. contents margin).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2953	This should be redefined by views which do add margins
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2954	(for example: textViews do this)"
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2955
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2956	^ 0
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2957	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2958
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2959	innerWidth
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2960	"return the width of the view minus any 3D-shadow-borders"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2961
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2962	(level == 0) ifTrue:[^ width].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2963	^ width - (2 * margin)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2964	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2965
369 4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2966	innerWidth:pixels
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2967	"set the width of the view plus any 3D-shadow-borders.
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2968	This does not work with a relative size."
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2969
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2970	^ self width:( pixels + (margin + self innerHorizontalMargin * 2) ).
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2971	!
4a909fb26d3f innerWidth: / innerHeight: Claus Gittinger <cg@exept.de> parents: 365 diff changeset	2972
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2973	inset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2974	"set all insets; positive makes the view smaller,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2975	negative makes it larger..
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	2976	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2977
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2978	self allInset:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2979	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2980
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2981	layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2982	"return the layout object which controls my geometry.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2983	Currently, this is nil in most cases, and my geometry is
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2984	defined by relativeOrigin/relativeCorner/relativeExtent,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2985	originRule/extentRule/cornerRule and inset.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2986	Applications should be changed to use layoutObjects,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2987	since the above listed instance variables will vanish."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2988
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2989	^ layout
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2990	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2991
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2992	layout:aLayoutObject
6487 07daeb3f1bec class: SimpleView Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	2993	"set the layout object which controls my geometry."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	2994
7401 005c12498bd9 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7397 diff changeset	2995	layout ~= aLayoutObject ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2996	layout := aLayoutObject.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	2997	self layoutChanged.
6470 cdcc01e0ce13 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6468 diff changeset	2998	].
6249 28e5a459b5d1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6246 diff changeset	2999
28e5a459b5d1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6246 diff changeset	3000	"Modified: 19.9.1995 / 16:17:25 / claus"
28e5a459b5d1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6246 diff changeset	3001	"Modified: 19.7.1996 / 17:30:27 / cg"
28e5a459b5d1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6246 diff changeset	3002	!
28e5a459b5d1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6246 diff changeset	3003
28e5a459b5d1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6246 diff changeset	3004	layoutChanged
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3005	superView isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3006	self originChangedFlag:true extentChangedFlag:true cornerChangedFlag:true.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3007	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3008	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3009	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3010
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3011	"Modified: 19.9.1995 / 16:17:25 / claus"
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3012	"Modified: 19.7.1996 / 17:30:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3013	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3014
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3015	left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3016	"return the x position of the left border (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3017
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3018	^ left
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3019	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3020
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3021	left:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3022	"set the x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3023
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3024	self origin:(aNumber @ top)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3025	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3026
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3027	left:newLeft top:newTop width:newWidth height:newHeight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3028	"another way of specifying origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3029
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3030	self origin:(newLeft @ newTop) extent:(newWidth @ newHeight)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3031	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3032
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3033	leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3034	"return the inset of the left edge; positive is to the right,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3035	negative to the left.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3036	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3037
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3038	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	3039	^ insets at:1
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3040	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3041
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3042	leftInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3043	"set the inset of the left edge;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3044	positive is to the right (view becomes smaller),
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3045	negative to the left (becomes larger).
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3046	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3047
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3048	\|newInset\|
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3049
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3050	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3051	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3052	].
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3053	newInset := aNumber.
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3054	newInset isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3055	newInset := 0.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3056	].
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3057	(insets at:1) ~= newInset ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3058	insets at:1 put:newInset.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3059	self containerChangedSize.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3060	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3061
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3062	"Modified: 19.7.1996 / 17:30:30 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3063	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3064
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3065	makeFullyVisible
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3066	"make sure that the view is fully visible by shifting it
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3067	into the visible screen area if necessary."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3068
6778 366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3069	\|myDevice originVisible cornerVisible newTop newLeft deviceBounds
5944 1d17a1a7af44 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5924 diff changeset	3070	deviceLeft deviceRight deviceTop deviceBottom origin corner
1d17a1a7af44 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5924 diff changeset	3071	referencePoint\|
5617 135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	3072
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3073	myDevice := device.
6778 366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3074
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3075	newTop := top.
5617 135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	3076	newLeft := left.
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	3077
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3078	origin := left@top.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3079	corner := (left + width)@(top + height).
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3080
6778 366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3081	originVisible := myDevice pointIsVisible:origin.
366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3082	cornerVisible := myDevice pointIsVisible:corner.
366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3083
366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3084	(myDevice pointsAreOnSameMonitor:origin and:corner) ifTrue:[
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3085	referencePoint := origin.
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3086	] ifFalse:[
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3087	originVisible ifTrue:[
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3088	"origin is visible"
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3089	referencePoint := origin.
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3090	] ifFalse:[
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3091	cornerVisible notNil ifTrue:[
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3092	"corner is visible"
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3093	referencePoint := corner.
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3094	] ifFalse:[
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3095	referencePoint := 1@1.
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3096	].
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3097	].
6778 366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3098	].
366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3099	deviceBounds := myDevice monitorBoundsAt:referencePoint.
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3100
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3101	deviceLeft := deviceBounds left.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3102	deviceRight := deviceBounds right.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3103	deviceTop := deviceBounds top.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3104	deviceBottom := deviceBounds bottom.
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3105
6778 366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3106	originVisible ifTrue:[ deviceBottom := deviceBottom min:(myDevice usableHeightAt:origin) ].
366410d32851 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6748 diff changeset	3107	cornerVisible ifTrue:[ deviceBottom := deviceBottom min:(myDevice usableHeightAt:corner) ].
5627 c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	3108
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	3109	corner y > deviceBottom ifTrue:[
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3110	cornerVisible := false.
5627 c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	3111	].
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	3112
c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	3113	UserPreferences current forceWindowsIntoMonitorBounds ifFalse:[
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3114	(originVisible and:[cornerVisible]) ifTrue:[^ self].
5627 c8c301e002bd changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	3115	].
5617 135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	3116
135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	3117	"/ deviceRight := deviceRight min:device usableWidth.
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3118	originVisible ifFalse:[
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3119	cornerVisible ifFalse:[
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3120	newTop := deviceBottom - height.
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3121	newLeft := deviceRight - width.
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3122	newLeft := newLeft max:deviceLeft.
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3123	newTop := newTop max:deviceTop.
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3124	] ifTrue:[
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3125	"/ origin is not; corner is in
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3126	newLeft := (deviceLeft max:newLeft).
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3127	newTop := (deviceTop max:newTop).
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3128	].
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3129	] ifTrue:[
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3130	"/ notice, the position-dependent query: if there is a higher secondary screen,
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3131	"/ this makes a difference in where a popUpMenu is allowed...
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3132	(corner y > deviceBottom) ifTrue:[
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3133	newTop := deviceBottom - height
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3134	].
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3135	(corner x > deviceRight) ifTrue:[
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3136	newLeft := deviceRight - width
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3137	].
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3138	newLeft := newLeft max:deviceLeft.
20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3139	newTop := newTop max:deviceTop.
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	3140	].
5617 135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	3141
135132a35699 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5612 diff changeset	3142	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3143	self origin:newLeft @ newTop
5729 a2d13b74741a changed: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5727 diff changeset	3144	].
a2d13b74741a changed: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5727 diff changeset	3145
5944 1d17a1a7af44 changed: #makeFullyVisible Claus Gittinger <cg@exept.de> parents: 5924 diff changeset	3146	"Modified: / 27-10-2012 / 13:15:58 / cg"
8039 20dcb969dca9 #OTHER by mawalch mawalch parents: 8028 diff changeset	3147	"Modified (comment): / 30-05-2017 / 17:42:51 / mawalch"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3148	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3149
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3150	makeRoundViewShapeWithBorder:bw
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3151	"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	3152	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	3153
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3154	self makeRoundViewShapeWithBorder:bw opaque:true.
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3155
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3156	!
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3157
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3158	makeRoundViewShapeWithBorder:bw opaque:opaque
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3159	"setup my window for a round shaped view;
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3160	this is not supported by all devices"
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3161
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	3162	\|extent shapeForm borderForm w h f lw\|
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	3163
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3164	"/ device supportsRoundShapedViews ifTrue:[
cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3165	"/ "/ TODO: add code for round shaped view (mswin)
cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3166	"/ ].
cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3167
cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3168	device supportsArbitraryShapedViews ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3169	extent := self extent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3170	w := extent x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3171	h := extent y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3172	borderForm := Form extent:extent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3173	shapeForm := Form extent:extent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3174
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3175	borderForm fillArcX:0 y:0
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3176	width:w
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3177	height:h
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3178	from:0
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3179	angle:360.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3180
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3181	opaque ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3182	f := borderForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3183	borderForm foreground:(Color colorId:0).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3184	] ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3185	f := shapeForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3186	shapeForm foreground:(Color colorId:1).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3187	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3188
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3189	f fillArcX:(lw := gc lineWidth) y:lw
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3190	width:w - (bw * 2)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3191	height:h - (bw * 2)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3192	from:0
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3193	angle:360.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3194
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3195	self borderShape:borderForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3196	self viewShape:shapeForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3197	^ self.
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3198
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3199	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3200	"/ extent := self extent.
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3201	"/
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3202	"/ w := extent x.
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3203	"/ h := extent y.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3204	"/ borderForm := Form width:w height:h.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3205	"/ "/ borderForm fill:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3206	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3207	"/ shapeForm := Form width:w height:h.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3208	"/ "/ shapeForm fill:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3209	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3210	"/ 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	3211	"/ borderForm
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3212	"/ fillArcX:0 y:0
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3213	"/ width:w
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3214	"/ height:h
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3215	"/ from:0
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3216	"/ angle:360.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3217	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3218	"/ opaque ifFalse:[
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3219	"/ f := borderForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3220	"/ borderForm foreground:(Color colorId:0).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3221	"/ ] ifTrue:[
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3222	"/ f := shapeForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3223	"/ shapeForm foreground:(Color colorId:1).
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3224	"/ ].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3225	"/ f
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3226	"/ fillArcX:bw y:bw
3474 2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3227	"/ width:(w - (bw * 2))
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3228	"/ height:(h - (bw * 2))
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3229	"/ from:0
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3230	"/ angle:360.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3231	"/
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3232	"/ self borderShape:borderForm.
2043444bdc24 statements after return Claus Gittinger <cg@exept.de> parents: 3473 diff changeset	3233	"/ self viewShape:shapeForm
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3234	]
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3235	!
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3236
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3237	makeTransparentRectangularViewShapeWithBorder:bw
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3238	"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	3239	this is not supported by all devices"
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3240
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3241	\|extent shapeForm borderForm w h f\|
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3242
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	3243	"/ self graphicsDevice supportsPolygonShapedViews ifTrue:[
3167 9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3244	"/ "/ TODO: add code for mswin
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3245	"/ ].
9dc9abd86ba2 fixed round shaped transparent views (Region) Claus Gittinger <cg@exept.de> parents: 3165 diff changeset	3246
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3247	device supportsArbitraryShapedViews ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3248	extent := self extent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3249	w := extent x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3250	h := extent y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3251	borderForm := Form extent:extent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3252	shapeForm := Form extent:extent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3253
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3254	borderForm
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3255	fillRectangleX:0 y:0
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3256	width:w
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3257	height:h.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3258
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3259	f := borderForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3260	borderForm foreground:(Color colorId:0).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3261
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3262	borderForm
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3263	fillRectangleX:bw y:bw
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3264	width:w - (bw * 2)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3265	height:h - (bw * 2).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3266
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3267	self borderShape:borderForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3268	self viewShape:shapeForm.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3269	^ self.
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3270	]
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3271	!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3272
7081 4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3273	maxExtent
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3274	^ self getAttribute:#maxExtent.
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3275	!
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3276
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3277	maxExtent:aPoint
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3278	^ self setAttribute:#maxExtent to:aPoint.
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3279	!
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3280
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	3281	minExtent
7081 4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3282	^ self getAttribute:#minExtent.
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3283	!
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3284
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3285	minExtent:aPoint
4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	3286	^ self setAttribute:#minExtent to:aPoint.
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	3287	!
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	3288
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3289	origin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3290	"return the origin (in pixels)"
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	^ left@top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3293	!
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	origin:origin
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3296	"set the view's origin;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3297	origin may be:
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3298	a point
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3299	where integer fields mean 'pixel-values'
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3300	and float values mean 'relative-to-superview'
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3301	and nil means 'take current value';
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3302	or a block returning a point which is interpreted as above.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3303	Please migrate to use layout objects."
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	\|newLeft newTop pixelOrigin o\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3306
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3307	origin isBlock ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3308	originRule := origin.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3309	self drawableId notNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3310	pixelOrigin := origin value
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3311	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3312	self originChangedFlag:true
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3313	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3314	] ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3315	o := origin.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3316	newLeft := origin x.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3317	newTop := origin y.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3318	newLeft isNil ifTrue:[newLeft := left].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3319	newTop isNil ifTrue:[newTop := top].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3320	o := newLeft @ newTop.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3321	((newLeft isInteger not) or:[newTop isInteger not]) ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3322	relativeOrigin := o.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3323	pixelOrigin := self originFromRelativeOrigin.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3324	pixelOrigin isNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3325	self originChangedFlag:true
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3326	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3327	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3328	relativeOrigin := nil.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3329	pixelOrigin := o
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3330	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3331	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3332	pixelOrigin notNil ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3333	self pixelOrigin:pixelOrigin
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3334	].
573 578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	3335
578ae7a2f7fa clear any relative origin/extent, if set to an absolute Claus Gittinger <cg@exept.de> parents: 566 diff changeset	3336	"Modified: 19.4.1996 / 15:12:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3337	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3338
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3339	origin:origin corner:corner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3340	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3341
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3342	\|newLeft newTop newRight newBot\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3343
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	3344	self explicitExtent:true.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3345
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3346	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3347
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3348	origin isBlock ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3349	corner isBlock ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3350	newLeft := origin x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3351	newLeft isInteger ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3352	newTop := origin y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3353	newTop isInteger ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3354	newRight := corner x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3355	newRight isInteger ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3356	newBot := corner y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3357	newBot isInteger ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3358	self pixelOrigin:origin corner:corner
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3359	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3360	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3361	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3362	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3363	]
135 cf8e46015072 . claus parents: diff changeset	3364	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3365	self origin:origin.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3366	self corner:corner
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3367
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3368	"Modified: 15.7.1996 / 09:52:43 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3369	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3370
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3371	origin:origin extent:extent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3372	"set both origin and extent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3373
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3374	\|newLeft newTop newWidth newHeight\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3375
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	3376	self explicitExtent:true.
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3377
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3378	"do it as one operation if possible"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3379
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3380	origin isBlock ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3381	extent isBlock ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3382	newLeft := origin x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3383	newLeft isInteger ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3384	newTop := origin y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3385	newTop isInteger ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3386	newWidth := extent x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3387	newWidth isInteger ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3388	newHeight := extent y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3389	newHeight isInteger ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3390	self pixelOrigin:origin extent:extent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3391	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3392	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3393	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3394	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3395	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3396	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3397	self extent:extent.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3398	self origin:origin
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3399
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	3400	"Modified: 15.7.1996 / 09:52:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3401	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3402
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3403	originRelativeTo:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3404	"return the origin (in pixels) relative to a superView,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3405	or relative to the rootView (if the aView argument is nil).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3406	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	3407
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3408	\|currentView
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	3409	bw "{ Class: SmallInteger }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3410	sumX "{ Class: SmallInteger }"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3411	sumY "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3412
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3413	currentView := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3414	sumX := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3415	sumY := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3416	[currentView notNil] whileTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3417	(currentView == aView) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3418	^ (sumX @ sumY)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3419	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3420	bw := currentView borderWidth.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3421	sumX := sumX + (currentView left) + bw.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3422	sumY := sumY + (currentView top) + bw.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3423	currentView := currentView superView
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3424	].
cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3425	(aView isNil or:[aView == device rootView]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3426	"return relative to screen ..."
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3427	^ (sumX @ sumY)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3428	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3429	^ nil
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3430
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	\|top sub1 sub2\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3433
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3434	top := StandardSystemView new.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3435	top extent:200@200.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3436	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	3437	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	3438	top openAndWait.
697 cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	3439	Transcript show:'button in top:'; showCR:(sub2 originRelativeTo:top).
cba925eed3da showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 696 diff changeset	3440	Transcript show:'button on screen:'; showCR:(sub2 originRelativeTo:nil).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3441	"
2171 df6af7cc7a62 fixed #originRelativeTo: when borderWidth ~~ 0 Claus Gittinger <cg@exept.de> parents: 2167 diff changeset	3442
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	3443	"Modified: / 5.12.1998 / 14:30:57 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3444	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3445
1327 51626baefab0 checkin from browser ca parents: 1323 diff changeset	3446	originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3447	"return the origin block - non public; this will vanish without notice"
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3448
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3449	^ originRule
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3450	!
51626baefab0 checkin from browser ca parents: 1323 diff changeset	3451
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3452	preferredExtent:anExtentPoint
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3453	"override the view's own preferredExtent computation,
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3454	and let it prefer the size given by the argument."
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3455
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3456	preferredExtent := anExtentPoint.
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	3457	explicitExtent := anExtentPoint.
1038 fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	3458
fb193cba16b6 #preferredExtent: no longer changes the extent Claus Gittinger <cg@exept.de> parents: 1035 diff changeset	3459	"Modified: 22.8.1996 / 13:41:47 / cg"
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3460	!
dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	3461
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3462	relativeCorner
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3463	"return the relative corner or nil"
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3464
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3465	"MB:added {" "needed if layout is used e.g. POUEditor"
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3466	layout notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3467	layout isRectangle ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3468	^ 0@0
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3469	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3470	^(layout rightFraction) @ (layout bottomFraction)
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3471	].
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3472	"MB:added }"
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3473
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3474	^relativeCorner
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3475	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3476
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3477	relativeCorner:aPoint
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3478	"set the relative corner"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3479
3627 eefbbc5c3d04 when setting a relativeExtent, clear any relativeCorner Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3480	aPoint notNil ifTrue:[relativeExtent := nil].
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3481	relativeCorner := aPoint.
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3482	"MB:added {" "needed if layout is used e.g. POUEditor"
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	3483	layout notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3484	layout rightFraction: aPoint x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3485	layout bottomFraction: aPoint y.
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3486	].
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3487	"MB:added }"
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	relativeExtent
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3491	"return the relative extent or nil.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3492	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3493
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3494	^ relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3495	!
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	relativeExtent:aPoint
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3498	"set the relative extent.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3499	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3500
3627 eefbbc5c3d04 when setting a relativeExtent, clear any relativeCorner Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3501	aPoint notNil ifTrue:[relativeCorner := nil].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3502	relativeExtent := aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3503	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3504
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3505	relativeOrigin
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3506	"return the relative corner or nil"
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3507
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3508	"MB:added {" "needed if layout is used e.g. POUEditor"
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3509	layout notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3510	layout isRectangle ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3511	^ 0@0
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3512	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3513	^(layout leftFraction) @ (layout topFraction)
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3514	].
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3515	"MB:added }"
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3516	^relativeOrigin
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3517	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3518
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3519	relativeOrigin:aPoint
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3520	"set the relative origin"
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3521
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3522	relativeOrigin := aPoint.
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3523	"MB:added {" "needed if layout is used e.g. POUEditor"
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3524	layout notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3525	layout leftFraction: aPoint x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3526	layout topFraction: aPoint y.
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3527	].
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	3528	"MB:added }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3529	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3530
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3531	right
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3532	"return the x position of the right edge (in pixels)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3533
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3534	^ left + width - 1
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3535
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3536	"Modified: 31.8.1995 / 19:31:10 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3537	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3538
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3539	right:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3540	"set the corners x position"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3541
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3542	self corner:(aNumber @ self corner y)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3543	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3544
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3545	rightInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3546	"return the inset of the right edge; positive is to the left,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3547	negative to the right.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3548	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3549
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3550	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	3551	^ insets at:3
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3552	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3553
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3554	rightInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3555	"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	3556	positive is to the left (view becomes smaller),
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3557	negative to the right (becomes larger).
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3558	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3559
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3560	\|newInset\|
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3561
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3562	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3563	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3564	].
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3565	newInset := aNumber.
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3566	newInset isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3567	newInset := 0.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3568	].
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3569	(insets at:3) ~= newInset ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3570	insets at:3 put:newInset.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3571	self containerChangedSize.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3572	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3573
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3574	"Modified: 19.7.1996 / 17:30:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3575	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3576
5547 07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3577	screenBounds
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3578	"return my bounds on the screen"
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3579
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3580	^ (self originRelativeTo:nil) extent:(self extent)
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3581	!
07869f48d479 added: #screenBounds Claus Gittinger <cg@exept.de> parents: 5543 diff changeset	3582
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3583	setHeight:aNumber
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3584	"set the view's height in pixels"
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3585
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3586	height := aNumber.
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3587
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3588	"Created: / 01-02-2011 / 23:34:51 / cg"
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3589	!
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3590
3007 1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3591	setOrigin:aPoint
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3592	"set the origin only"
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3593
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3594	left := aPoint x.
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3595	top := aPoint y.
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3596	!
1dbdf6ad67ce checkin from browser Stefan Vogel <sv@exept.de> parents: 3002 diff changeset	3597
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3598	setWidth:aNumber
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3599	"set the view's width in pixels"
5695 5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3600
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3601	width := aNumber.
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3602
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3603	"Created: / 01-02-2011 / 23:36:44 / cg"
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3604	!
5ab9c2eda29a added: Claus Gittinger <cg@exept.de> parents: 5694 diff changeset	3605
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3606	sizeFixed:aBoolean
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3607	"set/clear the fix-size attribute, if supported by concrete subclasses.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3608	Views which want to resize themselfes as appropriate to their contents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3609	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	3610	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	3611	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	3612	instead it tell the view to NOT resize ITSELF.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3613	Added here to provide a common protocol for all views."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3614
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3615	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3616	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3617
5228 b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3618	superViewRectangle
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3619	"return the inside area of the superView."
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3620
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3621	superView isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3622	^ Rectangle left:0 top:0 right:0 bottom:0.
5228 b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3623	].
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3624
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3625	^ superView viewRectangle.
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3626	!
b925a9bc8c6b new: #superViewRectangle Stefan Vogel <sv@exept.de> parents: 5221 diff changeset	3627
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3628	top
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3629	"return the y position of the top border"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3630
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3631	^ top
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3634	top:aNumber
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3635	"set the y position"
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	self origin:(left @ aNumber)
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	topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3641	"return the inset of the top edge; positive is to the bottom,
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3642	negative to the top.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3643	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3644
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3645	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	3646	^ insets at:2
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3647	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3648
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3649	topInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3650	"set the inset of the top edge;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3651	positive is to the bottom (view becomes smaller),
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3652	negative to the top (becomes larger).
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3653	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3654
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3655	\|newInset\|
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3656
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3657	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3658	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3659	].
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3660	newInset := aNumber.
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3661	newInset isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3662	newInset := 0.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3663	].
d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3664	(insets at:2) ~= newInset ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3665	insets at:2 put:newInset.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3666	self containerChangedSize.
4427 d704798bb679 * empty log message * Claus Gittinger <cg@exept.de> parents: 4426 diff changeset	3667	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3668
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3669	"Modified: 19.7.1996 / 17:30:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3670	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3671
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3672	verticalInset:aNumber
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3673	"set the insets of the top/bottom edge;
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3674	positive makes it smaller, negative makes it larger.
644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3675	Obsolete: please use a layout object."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3676
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3677	\|newInset\|
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3678
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3679	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3680	insets := Array with:0 with:0 with:0 with:0
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3681	].
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3682	newInset := aNumber.
4426 83f66a9c0be1 * empty log message * Claus Gittinger <cg@exept.de> parents: 4425 diff changeset	3683	aNumber isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3684	newInset := 0.
4530 5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3685	].
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3686	insets at:2 put:newInset.
5afcace584e4 compact: #dropMessage:data:view:position:handle: Stefan Vogel <sv@exept.de> parents: 4524 diff changeset	3687	insets at:4 put:newInset.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3688
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3689	"force recomputation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3690	"/ drawableId isNil ifTrue:[
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	3691	"/ self originChangedFlag:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3692	"/ ] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3693	self containerChangedSize.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3694	"/ ]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	3695
4630 644153ecf775 comments Claus Gittinger <cg@exept.de> parents: 4609 diff changeset	3696	"Modified: / 30-09-2006 / 15:19:45 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3697	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3698
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3699	viewRectangle
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3700	"return the inside area.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3701	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	3702	to base relative coordinates on.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3703	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	3704	margins required for 3D levels) is ok.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3705	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	3706	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	3707	(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	3708
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3709	\|m2\|
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3710
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3711	m2 := margin + margin.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3712	^ (margin @ margin) extent:((width - m2) @ (height - m2))
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3713
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3714	"Modified: 8.2.1996 / 20:05:00 / cg"
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3715	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	3716
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3717	width:aNumber
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3718	"set the view's width in pixels"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3719
5703 b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	3720	"/ check: the following leads to an error in the notebook...
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	3721	"/ aNumber isInteger ifTrue:[
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	3722	"/ width := aNumber.
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	3723	"/ ] ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	3724	self extent:(aNumber @ height)
5703 b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	3725	"/ ]
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	3726
b2982d12a3ad changed: Claus Gittinger <cg@exept.de> parents: 5695 diff changeset	3727	"Modified: / 02-02-2011 / 12:16:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3728	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3729
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3730	widthIncludingBorder
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3731	"return my width including border
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3732	(this is my width as seen from the outside view;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3733	while #width returns the width as seen by myself)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3734
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	3735	^ width + (2*self borderWidth)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3736	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3737
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3738	!SimpleView methodsFor:'accessing-display attributes'!
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3739
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3740	beMDIChildView
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	3741	flagBits := (flagBits ? 0) bitOr:FlagIsMDIChild
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3742	!
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3743
4230 6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3744	beNativeWidget
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	3745	flagBits := (flagBits ? 0) bitOr:FlagNativeWidget
4230 6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3746	!
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3747
4262 129e10b82f57 * empty log message * ca parents: 4230 diff changeset	3748	beNonNativeWidget
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	3749	flagBits := (flagBits ? 0) bitClear:FlagNativeWidget
4262 129e10b82f57 * empty log message * ca parents: 4230 diff changeset	3750	!
129e10b82f57 * empty log message * ca parents: 4230 diff changeset	3751
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3752	isMDIChildView
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3753	^ flagBits bitTest:FlagIsMDIChild
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3754	!
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	3755
4407 d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3756	isMarkedAsUnmappedModalBox
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3757	^ flagBits bitTest:FlagIsUnmappedModalBox
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3758	!
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3759
4230 6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3760	isNativeWidget
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3761	^ flagBits bitTest:FlagNativeWidget
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3762	!
6e80dbe10f18 nativeWidget stuff Claus Gittinger <cg@exept.de> parents: 4215 diff changeset	3763
4407 d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3764	markAsUnmappedModalBox
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	3765	flagBits := (flagBits ? 0) bitOr:FlagIsUnmappedModalBox
4407 d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3766	!
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3767
d0f371afaa58 * empty log message * Claus Gittinger <cg@exept.de> parents: 4406 diff changeset	3768	unmarkAsUnmappedModalBox
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	3769	flagBits := (flagBits ? 0) bitClear:FlagIsUnmappedModalBox
3918 f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3770	! !
f708df11e804 Set windowClasses based on application class name. Stefan Vogel <sv@exept.de> parents: 3909 diff changeset	3771
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3772	!SimpleView methodsFor:'accessing-hierarchy'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3773
756 5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3774	components
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3775	"return the collection of non-view components"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3776
4516 d17fa135d9a3 no nil components Claus Gittinger <cg@exept.de> parents: 4515 diff changeset	3777	^ components ? #()
756 5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3778
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3779	"Created: 28.5.1996 / 23:59:37 / cg"
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3780	!
5358dbd9d4be checkin from browser Claus Gittinger <cg@exept.de> parents: 754 diff changeset	3781
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3782	container
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3783	"return my container"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3784
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3785	^ superView
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3786
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3787	"Created: 5.6.1996 / 01:08:36 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3788	"Modified: 10.1.1997 / 19:47:59 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3789	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	3790
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3791	container:aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3792	"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	3793
3558 5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3794	superView == aContainer ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3795	"/ no change
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3796	^ self.
3558 5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3797	].
5b0c805753aa fixed container: (no error if same container is given) martin parents: 3556 diff changeset	3798
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	3799	(self drawableId notNil) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3800	"/ actually, this is worth an exception
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3801	"/ ('View [error]: ' , self printString , ' already realized - cannot change container') errorPrintCR.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3802	self error:'already realized - cannot change container' mayProceed:true.
3485 ee2792750943 checkin from browser Claus Gittinger <cg@exept.de> parents: 3474 diff changeset	3803	].
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3804	(superView notNil and:[superView ~~ aContainer]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3805	"/ actually, this is worth an exception
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3806	('View [warning]: ' , self printString , ' already has a container') errorPrintCR.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3807	superView removeComponent:self.
1296 dc646cdf78f0 checkin from browser Claus Gittinger <cg@exept.de> parents: 1293 diff changeset	3808	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3809	superView := aContainer
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3810
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3811	"Created: 9.5.1996 / 00:40:56 / cg"
1297 6fe5dfeba2c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1296 diff changeset	3812	"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	3813	!
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3814
5211 569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3815	hierarchicalIndex
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3816	^ superView hierarchicalIndexOfChild:self
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3817	!
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3818
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3819	hierarchicalIndexInList:aViewCollection
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3820	\|viewsWithSameName myName\|
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3821
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3822	myName := self uuidStringOrName.
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3823	viewsWithSameName := aViewCollection select:[:v \| v uuidStringOrName = myName].
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3824	viewsWithSameName size = 1 ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3825	^ nil "/ no conflict
5211 569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3826	].
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3827	^ viewsWithSameName indexOf:self
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3828	!
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3829
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3830	hierarchicalIndexOfChild:aView
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3831	^ nil
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3832	!
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3833
5050 f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3834	hierarchicalUUID
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3835
5211 569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3836	\|uuidOrName superV hierarchicalViews hierarchicalUUID separator indexOrNil indexString\|
5050 f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3837
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3838	hierarchicalUUID := ''.
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3839	hierarchicalViews := OrderedCollection with: self.
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3840	superV := self superView.
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3841
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3842	[superV isNil] whileFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3843	hierarchicalViews addFirst: superV.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3844	superV := superV superView.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3845	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3846
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	3847	hierarchicalViews doWithIndex:[:aView :index \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3848	uuidOrName := aView uuidStringOrName.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3849	indexString := nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3850	index > 1 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3851	indexOrNil := aView hierarchicalIndex.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3852	(indexOrNil notNil and:[indexOrNil ~= 1]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3853	indexString := '[',indexOrNil printString,']'
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3854	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3855	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3856	separator := index == 1 ifTrue:[''] ifFalse:['.'].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3857	hierarchicalUUID := hierarchicalUUID,separator,uuidOrName,(indexString?'').
5050 f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3858	].
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3859	^ hierarchicalUUID
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3860	!
f83e429938f3 hierarchicalUUID fm parents: 5031 diff changeset	3861
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3862	lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3863	"bring to back"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3864
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	3865	self drawableId isNil ifTrue:[self create].
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3866	device lowerWindow:self drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3867
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3868	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3869	Transcript topView lower
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3870	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3871	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3872
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3873	raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3874	"bring to front"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3875
5262 d7651814a2db fixed raise, when a modal view opens another modal dialog, Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	3876	"MS-windows:
d7651814a2db fixed raise, when a modal view opens another modal dialog, Claus Gittinger <cg@exept.de> parents: 5258 diff changeset	3877	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	3878	(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	3879	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	3880	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	3881
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	3882	self drawableId isNil ifTrue:[self create].
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	3883	device raiseWindowToTop:self drawableId
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3884
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3885	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3886	Transcript topView raise
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3887	"
6121 17d2c885beac class: SimpleView Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	3888
17d2c885beac class: SimpleView Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	3889	"Modified: / 29-08-2013 / 16:19:02 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3890	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3891
5680 66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3892	scrolledView
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3893	"for compatibility with scrolledView, return myself.
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3894	So you can ignore the scrollability of a component when accessing it,
6880 f2af2640ad4d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6864 diff changeset	3895	without a need to ask for being a scrollwrapper first.
f2af2640ad4d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6864 diff changeset	3896	Eg, you can send someView scrolledView to get the underlying view,
f2af2640ad4d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6864 diff changeset	3897	without a danger of a DNU, if the component is not scrolled."
5680 66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3898
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3899	^ self
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3900
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3901	"Created: / 22-01-2011 / 12:00:41 / cg"
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3902	!
66a7359fc640 added: #scrolledView Claus Gittinger <cg@exept.de> parents: 5679 diff changeset	3903
3625 e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3904	setContainer:aContainer
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3905	"set my container (i.e. superView) to be aContainer"
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3906
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3907	superView := aContainer
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3908	!
e8664f0060b5 + setContainer: Claus Gittinger <cg@exept.de> parents: 3617 diff changeset	3909
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3910	subViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3911	"return the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3912
3626 fa436ffc8ae7 subViews always returns a collection Claus Gittinger <cg@exept.de> parents: 3625 diff changeset	3913	^ subViews ? #()
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3914	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3915
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3916	subViews:aListOfViews
5214 b87c11b492f5 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 5211 diff changeset	3917	<resource: #obsolete>
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3918	"set the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3919
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	3920	self obsoleteMethodWarning.
0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	3921
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3922	subViews := aListOfViews.
135 cf8e46015072 . claus parents: diff changeset	3923	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3924	subViews do:[:view \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3925	view container:self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3926	]
135 cf8e46015072 . claus parents: diff changeset	3927	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3928
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3929	"Modified: 9.5.1996 / 00:42:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	3930	!
cf8e46015072 . claus parents: diff changeset	3931
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3932	superView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3933	"return my superView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3934
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3935	^ superView
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3938	superView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3939	"set my superView to be aView"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3940
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3941	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3942
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3943	self obsoleteMethodWarning:'use #container:'.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3944	self container:aView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3945
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	3946	"Modified: 9.5.1996 / 00:46:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3947	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3948
662 8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3949	topComponent
7586 53e42e99e908 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7570 diff changeset	3950	"return the topmost component - that's the one with no superview.
662 8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3951	For ST-80 compatibility."
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3952
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3953	^ self topView
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3954
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3955	"Modified: 9.5.1996 / 01:40:24 / cg"
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3956	!
8263420fe544 added #topComponent for VisualPart protocol compatibility Claus Gittinger <cg@exept.de> parents: 660 diff changeset	3957
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3958	topView
6643 cb79c35159b4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	3959	"return the topView - that's the one with no superview"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3960
3425 9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3961	\|v next n\|
9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3962
9b2a3191f47b checkin from browser Claus Gittinger <cg@exept.de> parents: 3423 diff changeset	3963	n := 1.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3964	v := self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3965	[v notNil] whileTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3966	(next := v container) isNil ifTrue:[^ v].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3967	v := next.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3968	n := n + 1.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	3969	n > 1000 ifTrue:[self error:'circular superView chain'].
135 cf8e46015072 . claus parents: diff changeset	3970	].
cf8e46015072 . claus parents: diff changeset	3971
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3972	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3973
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3974	"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	3975	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3976
5211 569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3977	uuidStringOrName
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3978	\|uuid\|
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3979
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3980	(uuid := self uuid) isNil ifTrue: [^ self name].
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3981	^ uuid printString
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3982	!
569dcac3ee7d hierarchicalUUID fix for duplicate viewNames fm parents: 5202 diff changeset	3983
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3984	view
7586 53e42e99e908 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7570 diff changeset	3985	"return my view - for real views, that's the receiver.
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3986	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	3987
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3988	^ self
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3989
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	3990	"Created: 4.6.1996 / 21:32:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3991	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3992
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3993	!SimpleView methodsFor:'accessing-menus'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3994
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3995	menuHolder
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	3996	"who has the menu ?
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3997	By default, I have it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3998
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	3999	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4000	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4001
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4002	menuMessage
7405 594bd11c3502 #OTHER by mawalch mawalch parents: 7401 diff changeset	4003	"Return the symbol sent to myself to acquire the menu"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4004
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4005	^ #middleButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4006	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4007
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4008	menuPerformer
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4009	"who should perform the menu actions ?
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4010	By default, I do it."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4011
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4012	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4013	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4014
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4015	yellowButtonMenu
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4016	"actually, this should be called 'middleButtonMenu'.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4017	But for ST-80 compatibility ....
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4018	This method will vanish, once all views have controllers
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4019	associated with them; for now, duplicate some code also found in
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4020	controller."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4021
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4022	\|sym menuHolder\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4023
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4024	menuHolder := self menuHolder.
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4025	menuHolder isNil ifTrue:[^ nil].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4026
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4027	(menuHolder isKindOf:Menu) ifTrue:[^ menuHolder].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4028
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4029	sym := self menuMessage.
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4030	sym isNil ifTrue:[^ nil].
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4031
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4032	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4033	mhmh - for backward compatibility, try to ask
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	4034	the model first, then use the view's menu.
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4035	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4036	(menuHolder respondsTo:sym) ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	4037	(self respondsTo:sym) ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	4038	menuHolder := self
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	4039	]
5292 7a7caa9d3e7a changed #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	4040	].
7a7caa9d3e7a changed #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	4041
7a7caa9d3e7a changed #yellowButtonMenu Claus Gittinger <cg@exept.de> parents: 5290 diff changeset	4042	sym numArgs > 0 ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	4043	"/ squeak compatibility (with args): create the empty menu here, let model add items
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	4044	^ menuHolder perform:sym withOptionalArgument:(Menu new) and:(device shiftDown).
3894 9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	4045	].
9ce47094d67e menu: squeak compatibility Claus Gittinger <cg@exept.de> parents: 3889 diff changeset	4046
3821 42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4047	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4048	ask the menuHolder for the menu
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4049	"
42ec29c44e21 special case: menuHolder is already a menu. tm parents: 3820 diff changeset	4050	^ menuHolder perform:sym.
135 cf8e46015072 . claus parents: diff changeset	4051	! !
cf8e46015072 . claus parents: diff changeset	4052
cf8e46015072 . claus parents: diff changeset	4053	!SimpleView methodsFor:'accessing-misc'!
cf8e46015072 . claus parents: diff changeset	4054
cf8e46015072 . claus parents: diff changeset	4055	bitGravity
7014 c6314e2eacb8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7011 diff changeset	4056	"return the bitGravity - that's the direction where the contents will move
7479 0d77199594d6 #DOCUMENTATION by mawalch mawalch parents: 7471 diff changeset	4057	when the view is resized."
135 cf8e46015072 . claus parents: diff changeset	4058
cf8e46015072 . claus parents: diff changeset	4059	^ bitGravity
cf8e46015072 . claus parents: diff changeset	4060	!
cf8e46015072 . claus parents: diff changeset	4061
cf8e46015072 . claus parents: diff changeset	4062	bitGravity:gravity
7014 c6314e2eacb8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7011 diff changeset	4063	"set the bitGravity - that's the direction where the contents will move
135 cf8e46015072 . claus parents: diff changeset	4064	when the view is resized."
cf8e46015072 . claus parents: diff changeset	4065
cf8e46015072 . claus parents: diff changeset	4066	bitGravity ~~ gravity ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4067	bitGravity := gravity.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4068	gc bitGravity:gravity.
135 cf8e46015072 . claus parents: diff changeset	4069	]
cf8e46015072 . claus parents: diff changeset	4070	!
cf8e46015072 . claus parents: diff changeset	4071
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4072	clippingBounds:aRectangleOrNil
153 c56277fa4865 . claus parents: 151 diff changeset	4073	"set the clipping rectangle for drawing (in logical coordinates);
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	4074	a nil argument turns off clipping (i.e. whole view is drawable).
153 c56277fa4865 . claus parents: 151 diff changeset	4075	Redefined to care for any margin."
c56277fa4865 . claus parents: 151 diff changeset	4076
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4077	\|x y w h currentClippingBounds newBounds\|
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4078
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4079	currentClippingBounds := gc clippingBoundsOrNil.
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4080	(currentClippingBounds = aRectangleOrNil) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4081	^ self
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4082	].
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4083	newBounds := aRectangleOrNil.
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4084
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4085	aRectangleOrNil notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4086	\|currentTransformation\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4087
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4088	x := aRectangleOrNil left.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4089	y := aRectangleOrNil top.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4090	w := aRectangleOrNil width.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4091	h := aRectangleOrNil height.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4092	currentTransformation := gc transformation.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4093	currentTransformation notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4094	x := currentTransformation applyToX:x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4095	y := currentTransformation applyToY:y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4096	w := currentTransformation applyScaleX:w.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4097	h := currentTransformation applyScaleY:h.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4098	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4099	(x class ~~ SmallInteger) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4100	w := w + (x - x truncated).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4101	x := x truncated
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4102	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4103	(y class ~~ SmallInteger) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4104	h := h + (y - y truncated).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4105	y := y truncated
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4106	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4107	(w class ~~ SmallInteger) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4108	w := w truncated + 1
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4109	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4110	(h class ~~ SmallInteger) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4111	h := h truncated + 1
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4112	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4113	x < margin ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4114	x := margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4115	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4116	y < margin ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4117	y := margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4118	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4119	x + w - 1 >= (width-margin) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4120	w := width - margin - x
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4121	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4122	y + h - 1 >= (height-margin) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4123	h := height - margin - y
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4124	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4125	w := w max:0.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4126	h := h max:0.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4127	newBounds := Rectangle left:x top:y width:w height:h.
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4128	].
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4129	gc deviceClippingBounds:newBounds
737 f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	4130
f194e4851d83 checkin from browser Claus Gittinger <cg@exept.de> parents: 734 diff changeset	4131	"Created: 28.5.1996 / 19:50:03 / cg"
754 a50c0b52aa82 checkin from browser Claus Gittinger <cg@exept.de> parents: 753 diff changeset	4132	"Modified: 28.5.1996 / 22:32:15 / cg"
153 c56277fa4865 . claus parents: 151 diff changeset	4133	!
c56277fa4865 . claus parents: 151 diff changeset	4134
c56277fa4865 . claus parents: 151 diff changeset	4135	fullName
c56277fa4865 . claus parents: 151 diff changeset	4136	"return my full name to be used for resource-access"
c56277fa4865 . claus parents: 151 diff changeset	4137
c56277fa4865 . claus parents: 151 diff changeset	4138	superView notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4139	^ superView fullName , '.' , self name
5290 5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	4140	].
5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	4141	^ self name
153 c56277fa4865 . claus parents: 151 diff changeset	4142	!
c56277fa4865 . claus parents: 151 diff changeset	4143
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4144	name
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4145	"return my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4146
5290 5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	4147	name isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4148	name := self class name "asString" asLowercaseFirst
5290 5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	4149	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4150	^ name
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4153	name:aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4154	"set my name component to be used for resource-access"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4155
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4156	name := aString
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4157	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4158
153 c56277fa4865 . claus parents: 151 diff changeset	4159	processName
c56277fa4865 . claus parents: 151 diff changeset	4160	"return a string to be shown in the process monitor"
c56277fa4865 . claus parents: 151 diff changeset	4161
c56277fa4865 . claus parents: 151 diff changeset	4162	^ self name
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4163	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4164
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4165	styleSheet
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4166	"return the styleSheet. This is set at early view-creation time,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4167	from the defaultStyleSheet which is valid at that time.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4168	It is not affected by later defaultStyle changes"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4169
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4170	^ styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4171
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4172	"Created: 10.9.1995 / 11:02:20 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4173	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4174
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4175	styleSheet:aStyleSheet
3384 4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	4176	"change the styleSheet. Knowledgable users only, please."
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	4177
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	4178	styleSheet := aStyleSheet.
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	4179	!
4af722e8336c allow change of the styleSheet tm parents: 3383 diff changeset	4180
4990 0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	4181	uuid
5017 ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4182	"return my uuid (for the pollonium st/x capture/replay tool)"
ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4183
ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4184	^ uuid
4990 0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	4185	!
0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	4186
0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	4187	uuid:aUUID
5017 ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4188	"set my uuid (for the pollonium st/x capture/replay tool)"
ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4189
ea0e1c5afc63 uuid support Claus Gittinger <cg@exept.de> parents: 5008 diff changeset	4190	uuid := aUUID
4990 0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	4191	!
0aec48bba22a temporary kludge to support both names and uuid's fm parents: 4978 diff changeset	4192
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4193	viewGravity
7014 c6314e2eacb8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7011 diff changeset	4194	"return the viewGravity - that's the direction where the view will move
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4195	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4196
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4197	^ viewGravity
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4198	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4199
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4200	viewGravity:gravity
7014 c6314e2eacb8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7011 diff changeset	4201	"set the viewGravity - that's the direction where the view will move
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4202	when the superView is resized."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4203
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4204	viewGravity ~~ gravity ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4205	viewGravity := gravity.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4206	gc viewGravity:gravity.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4207	]
140 0db355079dc4 . claus parents: 138 diff changeset	4208	! !
0db355079dc4 . claus parents: 138 diff changeset	4209
0db355079dc4 . claus parents: 138 diff changeset	4210	!SimpleView methodsFor:'accessing-mvc'!
0db355079dc4 . claus parents: 138 diff changeset	4211
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	4212	application
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	4213	"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	4214	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	4215
1751 15381229b2d8 accessing application through superView (not topView) ca parents: 1750 diff changeset	4216	superView notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4217	^ superView application
1187 c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	4218	].
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	4219	^ nil
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	4220
1190 2ae6212c581d avoid recursion trouble Claus Gittinger <cg@exept.de> parents: 1187 diff changeset	4221	"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	4222	!
c41d3a2591fd added #application - in case a non-topView is opened as topView, Claus Gittinger <cg@exept.de> parents: 1182 diff changeset	4223
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4224	aspect:aspectSymbol
8148 987e7d0dee97 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8131 diff changeset	4225	"ST-80 style updating: If a view's aspectSymbol is nonNil,
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4226	it will respond to changes of this aspect from the model.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4227	Alias for aspectMessage: for ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4228
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4229	self aspectMessage:aspectSymbol
8148 987e7d0dee97 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8131 diff changeset	4230
987e7d0dee97 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8131 diff changeset	4231	"Modified (comment): / 31-08-2017 / 20:15:56 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4232	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4233
140 0db355079dc4 . claus parents: 138 diff changeset	4234	controller
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4235	"return the controller. For views which implement the controller
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4236	functionality themself, return the receiver itself"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4237
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4238	^ controller ? self
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4239
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4240	"Modified: / 31.10.1997 / 19:58:10 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	4241	!
0db355079dc4 . claus parents: 138 diff changeset	4242
0db355079dc4 . claus parents: 138 diff changeset	4243	controller:aController
7586 53e42e99e908 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7570 diff changeset	4244	"set the controller - that's the one handling user events"
140 0db355079dc4 . claus parents: 138 diff changeset	4245
7779 5931d9c57148 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7778 diff changeset	4246	aController == self ifTrue:[
5931d9c57148 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7778 diff changeset	4247	controller := nil
5931d9c57148 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7778 diff changeset	4248	] ifFalse:[
5931d9c57148 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7778 diff changeset	4249	controller := aController.
5931d9c57148 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7778 diff changeset	4250	controller notNil ifTrue:[
5931d9c57148 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7778 diff changeset	4251	controller view:self.
5931d9c57148 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7778 diff changeset	4252	]
135 cf8e46015072 . claus parents: diff changeset	4253	]
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4254
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4255	"Modified: / 31.10.1997 / 19:58:33 / cg"
135 cf8e46015072 . claus parents: diff changeset	4256	!
cf8e46015072 . claus parents: diff changeset	4257
140 0db355079dc4 . claus parents: 138 diff changeset	4258	model
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4259	"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	4260
135 cf8e46015072 . claus parents: diff changeset	4261	^ nil
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4262
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	4263	"Modified: 5.6.1996 / 14:17:29 / cg"
135 cf8e46015072 . claus parents: diff changeset	4264	!
cf8e46015072 . claus parents: diff changeset	4265
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4266	sensor
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	4267	"return the view's sensor"
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4268
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4269	windowGroup notNil ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	4270	^ windowGroup sensor.
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	4271	].
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	4272
4209 af2ef9ba90c5 typo in comment Stefan Vogel <sv@exept.de> parents: 4196 diff changeset	4273	"there is no window group. Deliver events synchronously"
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	4274
45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	4275	^ SynchronousWindowSensor new.
1182 e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4276
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4277	"Modified: 10.1.1997 / 19:47:13 / cg"
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4278	!
e28b15d4ef95 comments Claus Gittinger <cg@exept.de> parents: 1172 diff changeset	4279
954 3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4280	setController:aController
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4281	"set the controller but do not affect the model/view releationship"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4282
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4283	controller := aController.
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4284
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4285	"Created: 18.7.1996 / 11:43:40 / cg"
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4286	!
3c3c99d3b40a checkin from browser Claus Gittinger <cg@exept.de> parents: 947 diff changeset	4287
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4288	setWindowGroup:aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4289	"set the window group."
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4290
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4291	windowGroup := aGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4292
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4293	"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	4294	!
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4295
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4296	windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4297	"return the window group. For old style views, return nil"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4298
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4299	^ windowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4300	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4301
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4302	windowGroup:newGroup
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4303	"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	4304	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	4305
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4306	windowGroup notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4307	windowGroup removeView:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4308	windowGroup := nil
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4309	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4310	windowGroup := newGroup.
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4311	newGroup notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4312	newGroup addView:self.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	4313
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	4314	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4315	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4316	subViews do:[:aSubview \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4317	aSubview windowGroup:newGroup
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4318	]
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4319	].
a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	4320
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	4321	"Modified: 20.8.1997 / 13:26:37 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4322	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4323
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4324	!SimpleView methodsFor:'accessing-transformation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4325
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4326	maxComponentBottom
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4327	"return the maximum of all components bottoms"
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4328
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4329	components isNil ifTrue:[^ 0].
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4330	^ 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	4331
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4332	"Created: / 26-05-1996 / 12:44:05 / cg"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4333	"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	4334	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4335
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4336	maxComponentRight
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4337	"return the maximum of all components rights"
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4338
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4339	components isNil ifTrue:[^ 0].
5623 41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4340	^ 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	4341
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4342	"Created: / 26-05-1996 / 13:02:19 / cg"
41308e6e401a comment/format in: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5617 diff changeset	4343	"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	4344	!
2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	4345
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4346	maxSubViewBottom
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4347	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4348	"/ ^ 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	4349	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4350	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4351
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4352	maxSubViewRight
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4353	"/ subViews isNil ifTrue:[^ 0].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4354	"/ ^ 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	4355	^ 0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4356	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4357
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4358	scale:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4359	"set the scale factor of the transformation"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4360
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	4361	super scale:aPoint.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4362	self computeInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4363	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4364
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4365	setViewOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4366	"set the viewOrigin - i.e. virtually scroll without redrawing"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4367
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4368	\|currentTransformation\|
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	4369
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4370	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4371	currentTransformation isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4372	(aPoint x ~~ 0 or:[aPoint y ~~ 0]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4373	gc transformation:(WindowingTransformation scale:1 translation:aPoint negated).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4374	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4375	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4376	currentTransformation translation:aPoint negated.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4377	].
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4378	self clippingBoundsOrNil notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4379	self setInnerClip.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4380	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4381	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4382
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4383	viewOrigin
7586 53e42e99e908 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7570 diff changeset	4384	"return the viewOrigin; that's the coordinate of the contents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4385	which is shown topLeft in the view
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4386	(i.e. the origin of the visible part of the contents)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4387
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4388	\|currentTransformation\|
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4389
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4390	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4391	currentTransformation isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4392	^ 0@0
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4393	].
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4394	^ currentTransformation translation negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4395	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4396
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4397	visibleArea
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4398	"return the rectangle that contains the visible part
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4399	of the view in user coordinates."
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4400
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4401
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4402	\|currentTransformation\|
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4403
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4404	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4405	currentTransformation isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4406	^ 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	4407	].
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	4408	^ Rectangle origin:(currentTransformation translation negated)
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4409	extent:((width @ height) scaledBy:(currentTransformation scale)).
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4410
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4411	"Created: 12.7.1996 / 11:57:04 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4412	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	4413
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4414	xOriginOfContents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4415	"return the x coordinate of the viewOrigin in pixels;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4416	used by scrollBars to compute thumb position within the document."
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	^ self viewOrigin x
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4419	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4420
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4421	yOriginOfContents
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4422	"return the y coordinate of the viewOrigin in pixels;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4423	used by scrollBars to compute thumb position within the document."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4424
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4425	^ self viewOrigin y
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4426	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4427
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4428	!SimpleView methodsFor:'accessing-visibility'!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4429
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4430	beInvisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4431	"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	4432	change visibility immediately;
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4433	otherwise, arrange for the receiver to be not realized,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4434	when the container is made visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4435
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4436	self hiddenOnRealize:true.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4437	realized ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4438	(superView isNil "/ I am a topView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4439	or:[superView realized "/ superview already shown
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4440	or:[superView id notNil]]) "/ superview already created
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4441	ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4442	self unmap
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4443	]
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4444	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4445
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4446	"Modified: 3.4.1997 / 21:20:40 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4447	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4448
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4449	beVisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4450	"make the view visible; if my container is already visible,
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4451	change visibility immediately; otherwise, arrange for the receiver
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4452	to be made visible when the container is made visible.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4453	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	4454	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	4455	visibility event arrives from the display.
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4456	Thus, the view may remain logically invisible
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4457	for a while. (see #beVisibleNow for more on this)"
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4458
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4459	self hiddenOnRealize:false.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4460	realized ifFalse:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4461	superView isNil ifTrue:[ "/ I am a topView
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4462	self drawableId isNil ifTrue:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4463	"this once was:
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4464	self realize.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4465	but we don't want Topviews to realize implicitly.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4466	BTW. the code doesn't work anyway"
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4467	] ifFalse:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4468	self remap.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4469	].
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4470	] ifFalse:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4471	(superView realized "/ superview already shown
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4472	or:[superView id notNil]) "/ superview already created
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4473	ifTrue:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4474	self realize
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4475	]
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4476	].
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4477	]
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4478
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4479	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4480	\|top topFrame check list\|
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4481
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4482	top := StandardSystemView new.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4483	top extent:150@400.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4484	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	4485	topFrame horizontalLayout:#leftSpace.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4486
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4487	topFrame add:(check := CheckBox label:'hidden').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4488	check pressAction:[list beInvisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4489	check releaseAction:[list beVisible].
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4490
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4491	list := ScrollableView for:SelectionInListView.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4492	list origin:0.0@0.4 corner:1.0@1.0.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4493	list list:#('foo' 'bar' 'baz').
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4494	top add:list.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4495
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4496	check turnOn.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4497	list beInvisible.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4498
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4499	top open
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4500	"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4501
1981 0c3b8ef42df8 Take care of views with nil visibleID in #beVisible Stefan Vogel <sv@exept.de> parents: 1960 diff changeset	4502	"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	4503	"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	4504	"Modified: / 14.1.1998 / 17:33:15 / stefan"
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4505	!
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4506
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4507	beVisibleNow
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4508	"make the view visible immediately.
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4509	In contrast to #beVisible, this waits until the view is really
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4510	visible."
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4511
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4512	self beVisible.
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	4513	device sync. "that's a round-trip; when returning, the view is definitely visible"
3648 95c073f74e25 comments Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	4514
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	4515	"/ realized := true.
2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	4516	"/ shown := true.
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4517
7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4518	"Created: 3.4.1997 / 21:23:28 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4519	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4520
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4521	hidden
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4522	"return true, if the view does not want to be realized
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4523	automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4524
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	4525	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	4526
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4527	self obsoleteMethodWarning:'use #isHiddenOnRealize'.
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4528	^ self isHiddenOnRealize
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4529
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4530	"Modified: 17.6.1997 / 11:19:55 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4531	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4532
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4533	hidden:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4534	"if the argument is true, the receiver view will not
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4535	be realized automatically when superview is realized"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4536
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	4537	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	4538
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4539	self obsoleteMethodWarning:'use #hiddenOnRealize:'.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4540	self hiddenOnRealize:aBoolean
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4541
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4542	"Modified: 17.1.1996 / 11:45:06 / cg"
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4543	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4544
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4545	hiddenOnRealize:aBoolean
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4546	"if the argument is true, the receiver view will not
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4547	be mapped (i.e. shown) automatically when the superview is realized.
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4548	The hiddenOnRealize flag is useful to create views which are
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4549	to be made visible conditionally or later.
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4550	Notice: if there is a visibilityChanne, this static flag is ignored.
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4551	For ST-80 compatibility, please use #beVisible / #beInvisible."
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4552
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4553	aBoolean ifTrue:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4554	flagBits := flagBits bitOr:FlagHiddenOnRealize
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4555	] ifFalse:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4556	flagBits := flagBits bitClear:FlagHiddenOnRealize
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	4557	].
1524 7932774a0429 added #beVisibleNow Claus Gittinger <cg@exept.de> parents: 1494 diff changeset	4558
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4559	"Modified: 17.6.1997 / 11:23:26 / cg"
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4560	!
a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4561
7094 349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4562	isBeingDestroyed
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4563	"a flag which is set, when the view is being destroyed.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4564	Can be checked to avoid some resizing and other layout reorganizations
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4565	(especially in panels), which otherwise occur while subviews are removed."
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4566
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4567	^ flagBits bitTest:FlagBeingDestroyed.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4568	!
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4569
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4570	isBeingDestroyed:aBoolean
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4571	"a flag which is set, when the view is being destroyed.
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4572	Can be checked to avoid some resizing and other layout reorganizations
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4573	(especially in panels), which otherwise occur while subviews are removed."
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4574
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4575	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4576	flagBits := flagBits bitOr:FlagBeingDestroyed
7094 349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4577	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4578	flagBits := flagBits bitClear:FlagBeingDestroyed
7094 349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4579	].
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4580	!
349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	4581
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4582	isHiddenOnRealize
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	4583	"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	4584	False otherwise.
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4585	The hiddenOnRealize flag is useful to create views which are
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4586	to be made visible conditionally or later.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4587	Notice: if there is a visibilityChanne, the static flag is ignored."
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4588
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4589	visibilityChannel isNil ifTrue:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4590	^ flagBits bitTest:FlagHiddenOnRealize.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4591	].
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4592	^ visibilityChannel value not
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	4593
1754 a718886d78d6 checkin from browser Claus Gittinger <cg@exept.de> parents: 1751 diff changeset	4594	"Created: 17.6.1997 / 11:21:42 / cg"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4595	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4596
5679 455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4597	isReallyShown
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4598	"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	4599
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4600	\|v\|
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4601
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4602	v := self.
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4603	[v notNil] whileTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4604	v shown ifFalse:[^ false].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4605	v := v container.
5679 455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4606	].
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4607	^ true
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4608
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4609	"Created: / 21-01-2011 / 15:54:18 / cg"
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4610	!
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	4611
3516 6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4612	isVisible
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4613	"return true, if the view is visible"
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4614
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4615	^ self realized
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4616	!
6b4bc198c7f1 added #isVisible Claus Gittinger <cg@exept.de> parents: 3510 diff changeset	4617
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4618	isVisible:aBoolean
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4619	"make the view visible or invisible"
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4620
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4621	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4622	self beVisible
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4623	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4624	self beInvisible
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4625	]
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4626
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4627	"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	4628	!
8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	4629
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4630	setVisibilityChannel:aValueHolder
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	4631	"set the valueHolder, which holds the visible boolean value"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	4632
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4633	visibilityChannel := aValueHolder
6087 fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4634
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4635	"
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4636	\|v h\|
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4637
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4638	v := View new.
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4639	v visibilityChannel:(h := ValueHolder with:true).
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4640	v open.
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4641	Delay waitForSeconds:2.
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4642	h value:false.
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4643	Delay waitForSeconds:2.
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4644	h value:true.
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4645	Delay waitForSeconds:2.
fa548561a48a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6082 diff changeset	4646	"
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	4647	!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	4648
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4649	shown
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4650	"return true if the view is shown; false if not.
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4651	Shown means: the view is mapped and is not completely covered."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4652
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4653	^ shown
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4654	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4655
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4656	visibilityChannel
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4657	"return a valueHolder for visible/invisible"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4658
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4659	^ visibilityChannel
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4660
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4661	"Modified: / 30.3.1999 / 13:49:56 / stefan"
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4662	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4663
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4664	visibilityChannel:aValueHolder
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4665	"set the valueHolder, which holds the visible boolean value"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4666
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4667
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4668	\|prev\|
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4669
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4670	prev := visibilityChannel.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4671	visibilityChannel := aValueHolder.
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4672	self setupChannel:aValueHolder for:#visibilityStateChanged withOld:prev
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	4673
3367 a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4674	"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4675	\|v h\|
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4676
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4677	v := View new.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4678	v visibilityChannel:(h := ValueHolder with:true).
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4679	v open.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4680	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4681	h value:false.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4682	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4683	h value:true.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4684	Delay waitForSeconds:2.
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4685	"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4686
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4687	"Created: / 14.1.1998 / 17:11:15 / stefan"
a564faee320f * empty log message * Claus Gittinger <cg@exept.de> parents: 3366 diff changeset	4688	"Modified: / 14.1.1998 / 17:33:40 / stefan"
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4689	! !
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	4690
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4691	!SimpleView methodsFor:'adding & removing components'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4692
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4693	add:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4694	"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	4695	subComponents."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4696
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4697	self addComponent:aComponent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4698	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4699
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4700	add:aComponent at:anOrigin
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4701	"for ST-80 compatibility.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4702	add a component at some origin"
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4703
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4704	\|l comp\|
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4705
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4706	comp := aComponent.
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4707
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4708	"/ (comp isWrapper not
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4709	"/ or:[comp isLayoutWrapper not]) ifTrue:[
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4710	"/ comp := LayoutWrapper on:comp
480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4711	"/ ].
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4712
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4713	l := anOrigin asLayout.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4714	comp layout:l.
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4715
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4716	self addComponent:comp
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4717
1614 480b34925127 checkin from browser Claus Gittinger <cg@exept.de> parents: 1581 diff changeset	4718	"Modified: 18.4.1997 / 20:00:20 / cg"
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4719	!
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	4720
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4721	add:aComponentOrCollection in:aRectangleOrLayoutFrame
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4722	"for ST-80 compatibility.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4723	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	4724	with relative coordinates, or an instance of LayoutFrame, specifying
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4725	both relative coordinates and the insets."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4726
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4727	\|l wrapper\|
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4728
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4729	aComponentOrCollection isCollection ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4730	wrapper := View new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4731	aComponentOrCollection do:[:aComponent \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4732	wrapper add:aComponent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4733	]
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4734	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4735	wrapper := aComponentOrCollection
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4736	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4737
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	4738	l := aRectangleOrLayoutFrame asLayout.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4739
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4740	"/ will soon be replaced by:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4741	"/ aComponent layout:l.
1617 7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4742	wrapper geometryLayout:l.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4743
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4744	self addComponent:wrapper.
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4745
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4746	^ wrapper
7a9eba5beeed add:in: changed to handle collections Claus Gittinger <cg@exept.de> parents: 1615 diff changeset	4747
1756 d5b82895461e removed debugHalt Claus Gittinger <cg@exept.de> parents: 1754 diff changeset	4748	"Modified: 17.6.1997 / 18:03:34 / cg"
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4751	addComponent:aComponent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4752	"components (i.e. gadgets or lightweight views) are being prepared.
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4753	Don't use this right now for non-views"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4754
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4755	aComponent isView ifTrue:[
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4756	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4757	] ifFalse:[
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4758	components isNil ifTrue:[
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4759	components := OrderedCollection new
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4760	].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4761	components add:aComponent.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4762	aComponent container:self.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4763	shown ifTrue:[
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4764	aComponent displayOn:self
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4765	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4766	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4767
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	4768	"Modified: 13.5.1996 / 21:19:51 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4769	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4770
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4771	addSubView:newView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4772	"add a view to the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4773
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4774	subViews isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4775	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4776	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4777	(subViews includesIdentical:newView) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4778	self error:'trying to add a view twice' mayProceed:true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4779	^ self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4780	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4781	subViews add:newView.
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4782	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4783	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4784
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4785	"Modified: 9.5.1996 / 00:47:16 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4786	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4787
5896 f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4788	addSubView:newView after:aViewOrNil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4789	"add a view to the collection of subviews after another view.
5896 f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4790	If the argument aViewOrNil is nil, the newView is added at the end.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4791	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	4792	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4793
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4794	subViews isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4795	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4796	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4797	(subViews includesIdentical:newView) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4798	self error:'trying to add a view twice' mayProceed:true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4799	^ self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4800	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4801	aViewOrNil isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4802	subViews add:newView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4803	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4804	subViews add:newView after:aViewOrNil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4805	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4806	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4807	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4808
5896 f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4809	"Modified: / 09-05-1996 / 00:47:20 / cg"
f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4810	"Modified (comment): / 22-03-2012 / 10:39:04 / cg"
f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4811	!
f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4812
f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4813	addSubView:newView before:aViewOrNil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4814	"add a view to the collection of subviews before another view.
5896 f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4815	If the argument aViewOrNil is nil, the newView is added at the end.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4816	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	4817	element at some defined place."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4818
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4819	subViews isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4820	subViews := OrderedCollection with:newView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4821	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4822	(subViews includesIdentical:newView) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4823	self error:'trying to add a view twice' mayProceed:true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4824	^ self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4825	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4826	aViewOrNil isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4827	subViews addFirst:newView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4828	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4829	subViews add:newView before:aViewOrNil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4830	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4831	].
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4832	self setContainerIn:newView.
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4833
5896 f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4834	"Modified: / 09-05-1996 / 00:47:23 / cg"
f7566dab943c comment/format in: Claus Gittinger <cg@exept.de> parents: 5888 diff changeset	4835	"Modified (comment): / 22-03-2012 / 10:39:18 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4836	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4837
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4838	addSubView:aView in:bounds borderWidth:bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4839	"for ST-80 V2.x compatibility"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4840
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4841	aView borderWidth:bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4842	self add:aView in:bounds.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4843	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4844
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4845	addSubViewFirst:newView
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4846	"add a view to the front of the collection of subviews"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4847
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4848	subViews isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4849	subViews := OrderedCollection with:newView
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4850	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4851	(subViews includesIdentical:newView) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4852	self error:'trying to add a view twice' mayProceed:true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4853	^ self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4854	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4855	subViews addFirst:newView.
1439 55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4856	].
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4857	self setContainerIn:newView.
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4858
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4859	"Modified: 9.5.1996 / 00:47:16 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4860	"Created: 6.3.1997 / 18:43:38 / cg"
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4861	!
55d0f63f8a0b added #addSubViewFirst: Claus Gittinger <cg@exept.de> parents: 1437 diff changeset	4862
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4863	component:aComponent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4864	"components (i.e. gadgets or lightweight views) are being prepared.
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4865	Don't use this right now for non-views"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4866
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4867	aComponent origin:0.0@0.0 corner:1.0@1.0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4868	aComponent isView ifTrue:[
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4869	self addSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4870	] ifFalse:[
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4871	components := OrderedCollection with:aComponent.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4872	aComponent container:self.
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4873
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4874	shown ifTrue:[
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4875	aComponent displayOn:self
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4876	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4877	]
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4878
683 ecc5d13f22b2 redraw new components if already visible Claus Gittinger <cg@exept.de> parents: 662 diff changeset	4879	"Modified: 13.5.1996 / 21:20:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4880	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4881
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4882	destroySubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4883	"remove all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4884
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4885	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4886	subViews copy do:[:aSubView \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4887	aSubView destroy.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4888	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4889
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4890	"/ paranoia ;-)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4891	subViews size ~~ 0 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4892	(self class name , ' >>View [warning]: some subView(s) did not destroy: ' , subViews printString) infoPrintCR.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4893	subViews := nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4894	].
5245 af593d6e31a9 handle non-view components in destroySubViews Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	4895	].
af593d6e31a9 handle non-view components in destroySubViews Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	4896
af593d6e31a9 handle non-view components in destroySubViews Claus Gittinger <cg@exept.de> parents: 5229 diff changeset	4897	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4898	components copy do:[:aComponent \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4899	aComponent destroy.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4900	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4901	components := nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4902	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4903	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4904
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4905	removeComponent:aComponent
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4906	"components (i.e. gadgets or lightweight views) are being prepared.
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4907	Don't use this right now for non-views"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4908
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4909	aComponent isView ifTrue:[
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4910	self removeSubView:aComponent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4911	] ifFalse:[
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4912	components isNil ifTrue:[^self].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4913	components remove:aComponent ifAbsent:[].
4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	4914	aComponent container:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4915	]
4579 0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	4916
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	4917	"Modified: / 11-09-2006 / 17:14:30 / User"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4918	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4919
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4920	removeSubView:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4921	"remove a view from the collection of subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4922
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4923	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4924	subViews remove:aView ifAbsent:[nil].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4925	aView setContainer:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4926
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4927	(subViews size == 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4928	subViews := nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4929	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4930	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4931	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4932
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4933	setContainerIn:aView
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4934	"common code for addSubView* methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4935
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4936	aView container:self.
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	4937	(aView graphicsDevice ~~ device) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4938	'SimpleView [warning]: subview (' errorPrint. aView class name errorPrint.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4939	') has different device than me (' errorPrint.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4940	self class name errorPrint. ').' errorPrintCR.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4941	aView device:device
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	4942	].
660 2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4943
2ae938f29875 renamed #superView: to #container (migration towards ST-80 compatibility) Claus Gittinger <cg@exept.de> parents: 659 diff changeset	4944	"Created: 9.5.1996 / 00:46:59 / cg"
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	4945	"Modified: 10.1.1997 / 18:06:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4946	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4947
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4948	!SimpleView methodsFor:'change & update'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4949
1437 9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4950	changedPreferredBounds:someArgument
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4951	"tell any dependents, that I have changed my preferred bounds;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4952	Interface is provided mostly provided for ST80 compatibility;
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4953	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	4954
7397 11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	4955	dependents notNil ifTrue:[ self changed:#preferredExtent ]
1437 9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4956
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4957	"Modified: 6.3.1997 / 16:12:02 / cg"
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4958	!
9fb2c38adb79 added #changedPreferredBounds for compatibility Claus Gittinger <cg@exept.de> parents: 1432 diff changeset	4959
4038 538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4960	languageChanged
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4961	!
538491244f6f preps for handling language changes Claus Gittinger <cg@exept.de> parents: 3968 diff changeset	4962
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4963	update:aspect with:aParameter from:changedObject
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4964	"an update request"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4965
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4966	aspect == #sizeOfView ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4967	"one of the views we depend on changed its size"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4968	"/ cg: #containerChangedSize has already been sent by the caller
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	4969	^ self "containerChangedSize".
3730 00bc72f859c5 code beautified Claus Gittinger <cg@exept.de> parents: 3715 diff changeset	4970	].
00bc72f859c5 code beautified Claus Gittinger <cg@exept.de> parents: 3715 diff changeset	4971	super update:aspect with:aParameter from:changedObject
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4972
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	4973	"Modified: 19.7.1996 / 17:30:48 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4974	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4975
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4976	!SimpleView methodsFor:'cursor animation'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4977
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4978	showBusyWhile:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4979	"evaluate some time consuming block, while doing this,
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4980	show a spinning wheel cursor. If those bitmaps are not found,
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4981	fallback to the standard busy cursor.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	4982	Experimental."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4983
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	4984	\|ok bitmaps cursors maskForm process oldCursor\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4985
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4986	oldCursor := cursor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4987
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	4988	ok := true.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	4989	bitmaps := #('wheel1' 'wheel2' 'wheel3' 'wheel4')
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4990	collect:[:name \|
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4991	\|f\|
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4992
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4993	f := Smalltalk imageFromFileNamed:(name , '.xbm') forClass:self class.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4994	f isNil ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4995	('SimpleView [warning]: no bitmap file: ' , name , '.xbm') errorPrintCR.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4996	ok := false
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4997	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4998	f
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	4999	].
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	5000
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5001	ok ifTrue:[
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5002	maskForm := Smalltalk imageFromFileNamed:'wheelm.xbm' forClass:self class.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5003	maskForm isNil ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5004	('SimpleView [warning]: no bitmap file: wheelm.xbm') errorPrintCR.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5005	ok := false
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5006	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5007	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5008
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5009	ok ifFalse:[
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5010	self cursor:Cursor wait.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5011	aBlock ensure:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5012	self cursor:oldCursor
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5013	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5014	] ifTrue:[
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5015	cursors := bitmaps collect:[:form \| (Cursor sourceForm:form
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5016	maskForm:maskForm
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5017	hotX:8
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5018	hotY:8) onDevice:device].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5019
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5020	process := [
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5021	\|shortDelay\|
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5022
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5023	Delay waitForSeconds:0.25.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5024	shortDelay := Delay forSeconds:0.05.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5025	[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5026	cursors do:[:curs \|
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5027	self cursor:curs.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5028	shortDelay wait.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5029	]
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5030	] loop.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5031	] forkAt:(Processor activeProcess priority + 1).
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5032
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5033	aBlock ensure:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5034	process terminate.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5035	self cursor:oldCursor
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5036	]
269 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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5039	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5040	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	5041	Transcript showBusyWhile:[ Delay waitForSeconds:5 ]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5042	"
1141 787b2fb75816 use Image instead of Form Claus Gittinger <cg@exept.de> parents: 1115 diff changeset	5043
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5044	"Modified: / 31-10-1997 / 19:59:49 / cg"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	5045	"Modified: / 20-02-2017 / 17:15:54 / stefan"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5046	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5047
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5048	!SimpleView methodsFor:'dependents access'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5049
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5050	addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5051	"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	5052
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5053	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5054
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5055	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5056	[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5057	\|deps\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5058
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5059	deps := dependents.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5060	"/
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5061	"/ store the very first dependent directly in
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5062	"/ the dependents instVar
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5063	"/
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5064	(deps isNil and:[anObject isCollection not]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5065	dependents := anObject
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5066	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5067	"/
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5068	"/ store more dependents in the dependents collection
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5069	"/
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5070	deps isCollection ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5071	deps add:anObject
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5072	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5073	deps == anObject ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5074	deps isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5075	dependents := (IdentitySet with:anObject)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5076	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5077	dependents := (IdentitySet with:deps with:anObject)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5078	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5079	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5080	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5081	]
3604 e32b5044a59e #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	5082	] ensure:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5083	wasBlocked ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5084	OperatingSystem unblockInterrupts
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5085	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5086	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5087
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5088	"Modified: 8.1.1997 / 23:40:30 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5089	"Created: 11.6.1997 / 13:10:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5090	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5091
7845 bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	5092	breakDependents
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	5093	"remove all dependencies from the receiver"
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	5094
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	5095	dependents := nil
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	5096
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	5097	"Created: / 08-02-2017 / 00:39:05 / cg"
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	5098	!
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	5099
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5100	dependents
7397 11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	5101	"return a Collection of dependents.
11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	5102	Views keep them in an instance variable to avoid overhead."
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5103
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5104	dependents isNil ifTrue:[^ #()].
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5105	dependents isCollection ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5106	^ dependents
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5107	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5108	^ IdentitySet with:dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5109
1938 8c7584b4d61f empty dependents are returned as an empty collection. Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5110	"Created: / 11.6.1997 / 13:10:44 / cg"
2015 f53883507ed9 comment Claus Gittinger <cg@exept.de> parents: 2009 diff changeset	5111	"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	5112	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5113
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5114	dependents:aCollection
7397 11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	5115	"set the collection of dependents.
11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	5116	Views keep them in an instance variable to avoid overhead."
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5117
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5118	\|dep\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5119
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5120	aCollection size == 1 ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5121	dep := aCollection first.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5122	dep isCollection ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5123	dependents := aCollection first.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5124	^ self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5125	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5126	].
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5127	dependents := aCollection
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5128
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5129	"Modified: 19.4.1996 / 12:23:05 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5130	"Created: 11.6.1997 / 13:10:47 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5131	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5132
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5133	dependentsDo:aBlock
7397 11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	5134	"evaluate aBlock for all of my dependents.
11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	5135	Views keep them in an instance variable to avoid overhead."
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5136
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5137	\|deps\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5138
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5139	deps := dependents.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5140	deps notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5141	deps isCollection ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5142	deps do:aBlock
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5143	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5144	aBlock value:deps
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5145	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5146	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5147
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5148	"Created: 11.6.1997 / 13:10:51 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5149	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5150
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5151	removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5152	"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	5153
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5154	\|wasBlocked\|
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5155
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5156	"/ 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	5157	"/ is possibly accessed from multiple threads.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5158	"/ 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	5159	"/ faster execution.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5160
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5161	wasBlocked := OperatingSystem blockInterrupts.
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5162	[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5163	\|deps sz dep\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5164
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5165	deps := dependents.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5166	deps notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5167	deps isCollection ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5168	deps remove:anObject ifAbsent:[].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5169	(sz := deps size) == 0 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5170	dependents := nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5171	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5172	sz == 1 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5173	(dep := deps first) isCollection ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5174	dependents := dep
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5175	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5176	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5177	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5178	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5179	deps == anObject ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5180	dependents := nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5181	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5182	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5183	]
3604 e32b5044a59e #valueNowOrOnUnwindDo: -> #ensure: Claus Gittinger <cg@exept.de> parents: 3601 diff changeset	5184	] ensure:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5185	wasBlocked ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5186	OperatingSystem unblockInterrupts
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5187	]
1747 355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5188	]
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5189
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5190	"Modified: 8.1.1997 / 23:41:39 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5191	"Created: 11.6.1997 / 13:11:58 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5192	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5193
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5194	!SimpleView methodsFor:'dependents access (non weak)'!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5195
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5196	addNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5197	"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	5198	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	5199	forwarded to addDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5200
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5201	^ self addDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5202
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5203	"Created: 11.6.1997 / 13:15:40 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5204	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5205
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5206	interests
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	5207	"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	5208	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	5209
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5210	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5211
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	5212	"Modified: / 14.10.1996 / 22:19:58 / stefan"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	5213	"Created: / 11.6.1997 / 13:15:44 / cg"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	5214	"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	5215	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5216
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5217	nonWeakDependents
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	5218	"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	5219	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	5220
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5221	^ self dependents
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5222
2037 25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	5223	"Created: / 11.6.1997 / 13:15:48 / cg"
25c7b949b117 #interests & #weakDependents always return a collection Claus Gittinger <cg@exept.de> parents: 2015 diff changeset	5224	"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	5225	!
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5226
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5227	removeNonWeakDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5228	"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	5229	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	5230	forwarded to removeDependent:"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5231
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5232	^ self removeDependent:anObject
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5233
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5234	"Created: 11.6.1997 / 13:15:52 / cg"
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5235	! !
355fdbae0104 keep dependents locally - for faster access. Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	5236
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5237	!SimpleView methodsFor:'drag & drop'!
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5238
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5239	canDrop:aDropContext
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5240	"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	5241	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	5242
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5243	^ false
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	5244
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5245	"Modified: / 13-10-2006 / 16:05:23 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5246	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5247
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5248	canDrop:aDropContext at:positionInView
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5249	"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	5250	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	5251
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5252	^ self canDrop:aDropContext
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5253
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5254	"Modified: / 13-10-2006 / 16:05:42 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5255	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5256
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5257	canDropObjects:aCollectionOfDropObjects
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5258	"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	5259	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	5260
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5261	^ false
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5262
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5263	"Modified: / 13-10-2006 / 16:06:03 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5264	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5265
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5266	canDropObjects:aCollectionOfDropObjects at:positionInView
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5267	"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	5268	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	5269
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5270	^ self canDropObjects:aCollectionOfDropObjects
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5271
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5272	"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	5273	!
45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	5274
3947 64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	5275	dragAutoScroll:aContext
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	5276	"called by the DragAndDropManager to scroll during a drag/drop operation
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5277	if necassery (decided by the widget itself);
4460 c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5278	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	5279	By default false is returned."
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5280
3947 64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	5281	^ false
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	5282	!
64b185ae7d41 support autoScroll during drag operation ca parents: 3945 diff changeset	5283
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5284	drop:aDropContext
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5285	"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	5286	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	5287	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	5288
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5289	self subclassResponsibility
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5290
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5291	"Modified: / 13-10-2006 / 16:07:58 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5292	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5293
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5294	drop:aDropContext at:aPoint
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5295	"drop manager wants to drop using info in aDropContext (the new drop interface).
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5296	If I have an application, forward the request.
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5297	Otherwise, ignore it. This is only sent, if #canDrop: returned true;
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5298	if you redefined #canDrop: in a subclass, #drop:at: must also be redefined."
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5299
4649 939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5300	self drop:aDropContext
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5301
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5302	"Modified: / 13-10-2006 / 16:07:41 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5303	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5304
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5305	dropObjects:aCollectionOfDropObjects
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5306	"someone wants to drop aCollectionOfDropObjects (the OLD drop interface).
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5307	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	5308	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	5309
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5310	self subclassResponsibility
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5311
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5312	"Created: / 13-10-2006 / 16:06:48 / cg"
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5313	!
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5314
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5315	dropObjects:aCollectionOfDropObjects at:aPoint
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5316	"someone wants to drop aCollectionOfDropObjects (the OLD drop interface).
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5317	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	5318	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	5319
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5320	self dropObjects:aCollectionOfDropObjects
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5321
939a1d4beed7 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4647 diff changeset	5322	"Created: / 13-10-2006 / 16:07:03 / cg"
3591 3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	5323	!
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	5324
3f7190c5750c + dropTarget Claus Gittinger <cg@exept.de> parents: 3590 diff changeset	5325	dropTarget
4460 c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5326	"returns the dropTarget or nil"
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	5327
4471 c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5328	^ dropTarget
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5329	!
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5330
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5331	dropTarget:aDropTragetOrNil
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5332	"set the dropTarget"
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5333
c14257db22fa dropTarget Claus Gittinger <cg@exept.de> parents: 4470 diff changeset	5334	dropTarget := aDropTragetOrNil.
1308 3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5335	! !
3cb41842b48d drag & drop support ca parents: 1304 diff changeset	5336
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5337	!SimpleView methodsFor:'edge drawing'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5338
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5339	drawBottomEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5340	"draw bottom 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5341
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5342	self drawBottomEdgeLevel:level
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5343	shadow:shadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5344	light:lightColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5345	halfShadow:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5346	halfLight:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5347	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5348	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5349
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5350	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	5351	\|botFg
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5352	count "{ Class: SmallInteger }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5353	b r\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5354
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5355	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5356	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5357
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5358	(count < 0) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5359	botFg := lightColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5360	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5361	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5362	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5363	botFg := halfShadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5364	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5365	botFg := shadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5366	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5367	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5368	super paint:botFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5369	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5370
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5371	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5372	0 to:(count - 1) do:[:i \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5373	b := height - 1 - i.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5374	super displayDeviceLineFromX:i y:b toX:(r - i) y:b
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5375	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5376
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5377	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5378	b := height - 1.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5379	super paint:shadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5380	super displayDeviceLineFromX:1 y:b toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5381	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5382
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5383	self edgeDrawn:#bottom.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5384
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5385	"Modified: 7.3.1997 / 17:59:39 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5386	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5387
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5388	drawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5389	"draw all of my 3D edges"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5390
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5391	self drawEdgesForX:0 y:0 width:width height:height level:level
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5392	shadow:shadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5393	light:lightColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5394	halfShadow:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5395	halfLight:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5396	style:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5397	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5398
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5399	drawEdgesForX:x y:y width:w height:h level:l
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5400	"draw 3D edges into a rectangle"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5401
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5402	self
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5403	drawEdgesForX:x y:y width:w height:h level:l
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5404	shadow:shadowColor light:lightColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5405	halfShadow:nil halfLight:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5406	style:nil
714 2679dd9318ef clear area under components in redraw Claus Gittinger <cg@exept.de> parents: 711 diff changeset	5407	!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5408
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5409	drawLeftEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5410	"draw left 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5411
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5412	self drawLeftEdgeLevel:level
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5413	shadow:shadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5414	light:lightColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5415	halfShadow:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5416	halfLight:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5417	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5418	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5419
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5420	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	5421	\|leftFg leftHalfFg paint b
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5422	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5423
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5424	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5425	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	5426
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5427	(count < 0) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5428	leftFg := shadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5429	leftHalfFg := halfShadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5430	count := count negated.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5431	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5432	leftFg := lightColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5433	leftHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5434	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5435	leftHalfFg isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5436	leftHalfFg := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5437	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5438
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5439	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5440	paint := leftHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5441	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5442	paint := leftFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5443	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5444	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5445	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5446
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5447	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5448	0 to:(count - 1) do:[:i \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5449	super displayDeviceLineFromX:i y:i toX:i y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5450	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5451
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5452	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5453	super paint:(device blackColor).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5454	super displayDeviceLineFromX:0 y:0 toX:0 y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5455	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5456
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5457	self edgeDrawn:#left.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5458
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5459	"Modified: 7.3.1997 / 17:59:53 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5460	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5461
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5462	drawRightEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5463	"draw right 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5464
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5465	self drawRightEdgeLevel:level
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5466	shadow:shadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5467	light:lightColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5468	halfShadow:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5469	halfLight:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5470	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5471	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5472
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5473	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	5474	\|rightFg
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5475	count "{ Class: SmallInteger }"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5476	r b\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5477
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5478	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5479	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5480
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5481	(count < 0) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5482	rightFg := lightColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5483	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5484	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5485	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5486	rightFg := halfShadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5487	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5488	rightFg := shadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5489	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5490	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5491	super paint:rightFg.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5492	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5493
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5494	b := height - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5495	0 to:(count - 1) do:[:i \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5496	r := width - 1 - i.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5497	super displayDeviceLineFromX:r y:i toX:r y:(b - i)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5498	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5499	((edgeStyle == #soft) and:[level > 1]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5500	r := width - 1.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5501	super paint:shadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5502	super displayDeviceLineFromX:r y:1 toX:r y:b.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5503	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5504
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5505	self edgeDrawn:#right.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5506
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5507	"Modified: 7.3.1997 / 18:00:02 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5508	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5509
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5510	drawTopEdge
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5511	"draw top 3D edge into window frame"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5512
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5513	self drawTopEdgeLevel:level
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5514	shadow:shadowColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5515	light:lightColor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5516	halfShadow:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5517	halfLight:nil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5518	style:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5519	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5520
7011 64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5521	drawTopEdgeLevel:level atY:y shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5522	\|topFg topHalfFg paint r
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5523	count "{ Class: SmallInteger }" \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5524
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5525	count := level.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5526	count == 0 ifTrue:[^ self].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5527
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5528	(count < 0) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5529	topFg := shadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5530	topHalfFg := halfShadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5531	count := count negated
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5532	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5533	topFg := lightColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5534	topHalfFg := halfLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5535	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5536	topHalfFg isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5537	topHalfFg := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5538	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5539
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5540	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5541	paint := topHalfFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5542	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5543	paint := topFg
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5544	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5545	super paint:paint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5546	super lineWidth:0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5547
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5548	r := width - 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5549	0 to:(count - 1) do:[:i \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5550	super displayDeviceLineFromX:i y:y+i toX:(r - i) y:y+i
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5551	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5552	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5553	super paint:(device blackColor).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5554	super displayDeviceLineFromX:0 y:y+0 toX:r y:y+0.
7011 64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5555	].
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5556
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5557	self edgeDrawn:#top.
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5558
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5559	"Modified: 7.3.1997 / 18:00:11 / cg"
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5560	!
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5561
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5562	drawTopEdgeLevel:level shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5563	self drawTopEdgeLevel:level atY:0 shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5564	!
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5565
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5566	drawTopEdgeLevel:level y:y shadow:shadowColor light:lightColor halfShadow:halfShadowColor halfLight:halfLightColor style:edgeStyle
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5567	\|topFg topHalfFg paint r
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5568	count "{ Class: SmallInteger }" \|
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5569
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5570	count := level.
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5571	count == 0 ifTrue:[^ self].
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5572
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5573	(count < 0) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5574	topFg := shadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5575	topHalfFg := halfShadowColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5576	count := count negated
7011 64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5577	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5578	topFg := lightColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5579	topHalfFg := halfLightColor.
7011 64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5580	].
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5581	topHalfFg isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5582	topHalfFg := topFg
7011 64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5583	].
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5584
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5585	((edgeStyle == #soft) and:[level > 0]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5586	paint := topHalfFg
7011 64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5587	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5588	paint := topFg
7011 64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5589	].
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5590	super paint:paint.
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5591	super lineWidth:0.
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5592
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5593	r := width - 1.
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5594	0 to:(count - 1) do:[:i \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5595	super displayDeviceLineFromX:i y:i toX:(r - i) y:i
7011 64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5596	].
64461ec3691e #BUGFIX Claus Gittinger <cg@exept.de> parents: 6988 diff changeset	5597	((edgeStyle == #soft) and:[level > 2]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5598	super paint:(device blackColor).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5599	super displayDeviceLineFromX:0 y:0 toX:r y:0.
1444 9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5600	].
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5601
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5602	self edgeDrawn:#top.
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5603
9295a5183a4c notify edge drawing Claus Gittinger <cg@exept.de> parents: 1439 diff changeset	5604	"Modified: 7.3.1997 / 18:00:11 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5605	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5606
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5607	redrawEdges
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5608	"redraw my edges (if any)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5609
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5610	(level ~~ 0) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5611	shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5612	gc clippingBounds:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5613	self drawEdges.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5614	gc deviceClippingBounds:innerClipRect
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5615	]
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5616	]
3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	5617
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	5618	"Modified: / 25.5.1999 / 14:50:25 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5619	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5620
6468 2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5621	!SimpleView methodsFor:'enumerating view hierarchy'!
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5622
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5623	allSubViewsDetect:aBlock ifNone:exceptionValue
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5624	"find a subview for which aBlock returns true (recursively).
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5625	If there is none, return the value from exceptionValue"
4720 eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5626
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5627	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5628	subViews do:[:aSubview \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5629	\|v\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5630
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5631	(aBlock value:aSubview) ifTrue:[ ^ aSubview ].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5632	v := aSubview allSubViewsDetect:aBlock ifNone:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5633	v notNil ifTrue:[^ v].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5634	]
6468 2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5635	].
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5636	^ exceptionValue value.
4720 eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5637
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5638	"Modified: 12.2.1997 / 12:23:38 / cg"
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5639	!
eaa1e97f9028 added #allSubViewsDetect: Claus Gittinger <cg@exept.de> parents: 4675 diff changeset	5640
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5641	allSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5642	"evaluate aBlock for all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5643
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	5644	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5645	subViews do:[:aSubview \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5646	aSubview withAllSubViewsDo:aBlock
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5647	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5648	]
1335 0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	5649
0f8aabe19349 checkin from browser Claus Gittinger <cg@exept.de> parents: 1329 diff changeset	5650	"Modified: 12.2.1997 / 12:23:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5651	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5652
6468 2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5653	allSuperViewsDetect:aBlock ifNone:exceptionValue
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5654	"find a container for which aBlock returns true (recursively).
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5655	If there is none, return the value from exceptionValue"
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5656
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5657	\|v\|
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5658
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5659	v := self container.
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5660	[v notNil] whileTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5661	(aBlock value:v) ifTrue:[^ v].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5662	v := v container.
6468 2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5663	].
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5664	^ exceptionValue value
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5665	!
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5666
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5667	allSuperViewsDo:aBlock
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5668	"evaluate aBlock for all superviews (recursively)"
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5669
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5670	\|v\|
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5671
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5672	v := self container.
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5673	[v notNil] whileTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5674	aBlock value:v.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5675	v := v container.
6468 2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5676	].
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5677	!
2fd167f08b5d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6386 diff changeset	5678
5548 4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5679	allVisibleSubViewsDetect:aBlock ifNone:exceptionBlock
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5680	"find a visible subview for which aBlock returns true (recursively)"
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5681
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5682	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5683	subViews do:[:aSubview \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5684	\|v\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5685
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5686	aSubview shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5687	(aBlock value:aSubview) ifTrue:[ ^ aSubview ].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5688	v := aSubview allVisibleSubViewsDetect:aBlock ifNone:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5689	v notNil ifTrue:[^ v].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5690	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5691	]
5548 4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5692	].
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5693	^ exceptionBlock value.
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5694	!
4bc2de4d03f9 added: #allVisibleSubViewsDetect:ifNone: Claus Gittinger <cg@exept.de> parents: 5547 diff changeset	5695
5254 ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5696	changeSequenceOrderFor:aSubViewOrComponent to:anIndex
1984 e34624152bf3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1981 diff changeset	5697	"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	5698	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	5699	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	5700
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5701	aSubViewOrComponent isView ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5702	^ self changeSequenceOrderForComponent:aSubViewOrComponent to:anIndex
5254 ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5703	].
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5704	^ self changeSequenceOrderForView:aSubViewOrComponent to:anIndex
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5705	!
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5706
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5707	changeSequenceOrderForComponent:aComponent to:anIndex
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5708	"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	5709	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	5710
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5711	\|removedComponent\|
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5712
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5713	(components notNil and:[components size >= anIndex]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5714	removedComponent := components remove:aComponent ifAbsent:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5715	removedComponent notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5716	components add:removedComponent beforeIndex:anIndex.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5717	^ true
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5718	]
5254 ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5719	].
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5720	^ false
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5721	!
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5722
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5723	changeSequenceOrderForView:aSubView to:anIndex
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5724	"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	5725	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	5726	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	5727
ba9d96c13e7a changeSequence: care for disjoint components/subView containers Claus Gittinger <cg@exept.de> parents: 5250 diff changeset	5728	\|removedView\|
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5729
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5730	(subViews notNil and:[subViews size >= anIndex]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5731	removedView := subViews remove:aSubView ifAbsent:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5732	removedView notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5733	subViews add:removedView beforeIndex:anIndex.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5734	^ true
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5735	]
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5736	].
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5737	^ false
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5738	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	5739
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5740	withAllSubViewsDo:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5741	"evaluate aBlock for the receiver and all subviews (recursively)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5742
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5743	aBlock value:self.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5744	self allSubViewsDo:aBlock
135 cf8e46015072 . claus parents: diff changeset	5745	! !
cf8e46015072 . claus parents: diff changeset	5746
cf8e46015072 . claus parents: diff changeset	5747	!SimpleView methodsFor:'event handling'!
cf8e46015072 . claus parents: diff changeset	5748
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5749	alienDrop:aCollectionOfDropObjects position:positionOrNil
1581 45908e82a49d drop argument is always a collection Claus Gittinger <cg@exept.de> parents: 1559 diff changeset	5750	"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	5751
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5752	\|view positionInView tDelayed
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	5753	anyNonExisting whichNonExisting checkForAnyNonExisting
4654 baa4bc036ec4 drag & drop Claus Gittinger <cg@exept.de> parents: 4652 diff changeset	5754	app target dropContext\|
4652 7e85c43bb11e aliendrop Claus Gittinger <cg@exept.de> parents: 4651 diff changeset	5755
7e85c43bb11e aliendrop Claus Gittinger <cg@exept.de> parents: 4651 diff changeset	5756	"/ mhmh - sometimes, the dropped file is not present.
7e85c43bb11e aliendrop Claus Gittinger <cg@exept.de> parents: 4651 diff changeset	5757	"/ 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	5758
d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5759	checkForAnyNonExisting :=
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5760	[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5761	anyNonExisting := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5762	aCollectionOfDropObjects do:[:eachDropObject \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5763	eachDropObject isFileObject ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5764	eachDropObject isDirectory ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5765	eachDropObject theObject asFilename exists ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5766	anyNonExisting := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5767	whichNonExisting := eachDropObject theObject asFilename.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5768	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5769	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5770	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5771	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5772	anyNonExisting
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5773	].
4463 d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5774
4652 7e85c43bb11e aliendrop Claus Gittinger <cg@exept.de> parents: 4651 diff changeset	5775	self withWaitCursorDo:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5776	tDelayed := 0.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5777	checkForAnyNonExisting doWhile:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5778	anyNonExisting ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5779	Delay waitForSeconds:0.3.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5780	tDelayed := tDelayed + 0.3.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5781	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5782	anyNonExisting and:[ tDelayed <= 3].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5783	].
4463 d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5784	].
d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5785
d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5786	(anyNonExisting and:[checkForAnyNonExisting value]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5787	Dialog warn:('Dropfile not present: %1' bindWith:whichNonExisting pathName).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5788	^ self
4463 d61225317fe6 oops - must wait for a while after a drop - sigh (win32) Claus Gittinger <cg@exept.de> parents: 4460 diff changeset	5789	].
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5790
934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5791	view := self.
934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5792	positionInView := positionOrNil.
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5793
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5794	app := view application.
5031 733b5e829b2b care for nil application in alienDrop:position: Claus Gittinger <cg@exept.de> parents: 5029 diff changeset	5795	app notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5796	(app canDropObjects:aCollectionOfDropObjects in:view at:positionInView) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5797	app dropObjects:aCollectionOfDropObjects in:view at:positionInView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5798	^ self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5799	].
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5800	].
a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	5801
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	5802	[view notNil] whileTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5803	"new mechanism to get a dropTarget"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5804	target := view dropTarget.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5805	target notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5806	dropContext := DropContext new.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5807	dropContext dropObjects:aCollectionOfDropObjects.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5808	dropContext dropTarget:target.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5809
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5810	(target canDrop:dropContext) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5811	target drop:dropContext.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5812	^ self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5813	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5814	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5815
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5816	(view canDropObjects:aCollectionOfDropObjects at:positionInView) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5817	view dropObjects:aCollectionOfDropObjects at:positionInView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5818	^ self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5819	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5820	view := view superView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5821	positionInView := nil.
1555 6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	5822	]
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	5823
4654 baa4bc036ec4 drag & drop Claus Gittinger <cg@exept.de> parents: 4652 diff changeset	5824	"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	5825	!
6280ab9b914d alien drop - converts to ST/X drop Claus Gittinger <cg@exept.de> parents: 1544 diff changeset	5826
5722 7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5827	buttonMotion:state x:x y:y
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5828	"button was moved"
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5829
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5830	self topView == TopView currentWindowBeingMoved ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5831	self topView doWindowMove.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5832	^ self.
5722 7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5833	].
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5834
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5835	"Created: / 03-03-2011 / 19:11:11 / cg"
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5836	!
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5837
4579 0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5838	buttonMultiPress:button x:x y:y
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5839	"button was pressed quickly again - check my components for a hit."
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5840
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5841	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5842	self componentsContainingX:x y:y do:[:comp :cx :cy \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5843	comp buttonMultiPress:button x:cx y:cy.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5844	^ self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5845	]
4579 0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5846	].
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5847
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5848	super buttonMultiPress:button x:x y:y
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5849
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5850	"Modified: / 08-05-1996 / 23:43:41 / cg"
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5851	"Created: / 13-09-2006 / 16:34:23 / User"
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5852	!
0aef1a98a4c9 + button multipress for lightweight components fm parents: 4530 diff changeset	5853
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5854	buttonPress:button x:x y:y
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5855	"button was pressed - check my components for a hit."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5856
6082 4d2c90e6561d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6077 diff changeset	5857	\|topView\|
4d2c90e6561d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6077 diff changeset	5858
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5859	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5860	self componentsContainingX:x y:y do:[:comp :cx :cy \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5861	comp buttonPress:button x:cx y:cy.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5862	^ self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5863	]
5722 7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5864	].
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5865
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5866	"/ an undecorated (but modeless) topView -> do a window move
6082 4d2c90e6561d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6077 diff changeset	5867	(topView := self topView) startWindowMoveOnButtonPress ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5868	topView startWindowMove.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5869	^ self.
140 0db355079dc4 . claus parents: 138 diff changeset	5870	].
0db355079dc4 . claus parents: 138 diff changeset	5871
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	5872	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	5873
5727 d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	5874	"Modified: / 04-03-2011 / 08:57:01 / cg"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5875	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5876
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5877	buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5878	"button was released - check my components for a hit."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5879
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5880	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5881	self componentsContainingX:x y:y do:[:comp :cx :cy \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5882	comp buttonRelease:button x:cx y:cy.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5883	^ self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5884	]
5722 7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5885	].
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5886
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5887	self topView == TopView currentWindowBeingMoved ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5888	self topView endWindowMove.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5889	^ self.
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5890	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5891
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5892	super buttonRelease:button x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	5893
5722 7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5894	"Created: / 08-05-1996 / 23:43:25 / cg"
7349997cf281 class definition Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	5895	"Modified: / 03-03-2011 / 19:23:48 / cg"
193 3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	5896	!
3abcc2ee1641 . Claus Gittinger <cg@exept.de> parents: 192 diff changeset	5897
5133 6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5898	changeScaleForMouseWheelZoom:amount
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5899	"CTRL-wheel action.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5900	ignored here - redefined in views which can zoom"
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5901
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5902	\|oldScale newScale factor\|
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5903
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5904	amount > 0 ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5905	factor := 1.2.
5133 6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5906	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5907	factor := 0.8.
5133 6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5908	].
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5909	oldScale := self scale.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5910	newScale := (oldScale * factor) max:0.1.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5911	self scale:newScale.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5912	self invalidate.
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5913	!
6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	5914
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5915	clientMessage:msgType format:msgFormat eventData:msgData
4999 b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5916	"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	5917	Forwarded to my application (if I have one)"
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5918
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5919	\|app\|
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5920
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5921	(app := self application) notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	5922	app clientMessage:msgType format:msgFormat eventData:msgData
4999 b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	5923	].
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5924	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	5925
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5926	closeRequest
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5927	"programmatic close request"
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5928
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5929	self destroy
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5930
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5931	"Modified: / 3.8.1998 / 19:50:50 / cg"
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5932	!
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	5933
140 0db355079dc4 . claus parents: 138 diff changeset	5934	configureX:x y:y width:newWidth height:newHeight
0db355079dc4 . claus parents: 138 diff changeset	5935	"my size has changed by window manager action"
0db355079dc4 . claus parents: 138 diff changeset	5936
5612 f7b84930b3fb Multi Screen Support Michael Beyl <mb@exept.de> parents: 5608 diff changeset	5937	\|how anyEdge mustRedrawBottomEdge mustRedrawRightEdge
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5938	mustRedrawPreviousRightBorderArea mustRedrawPreviousBottomBorderArea p originChanged
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5939	oldWidth oldHeight\|
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	5940
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	5941	originChanged := (left ~= x) or:[top ~= y].
180 0b3a8658d55e . claus parents: 176 diff changeset	5942
2966 b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	5943	left := x.
b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	5944	top := y.
b84e83209de4 checkin from browser Claus Gittinger <cg@exept.de> parents: 2960 diff changeset	5945
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	5946	(superView isNil
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	5947	and:[self drawableId notNil]) ifTrue:[
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5948	"/ have to be careful - some window managers (motif) wrap another
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5949	"/ view around and the reported origin is relative to that.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5950	"/ not relative to the screen.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5951	p := device translatePoint:0@0 fromView:self toView:nil.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5952	p := p + self borderWidth.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5953	left := p x.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5954	top := p y.
2414 1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	5955	].
1d8968995199 checkin from browser Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	5956
140 0db355079dc4 . claus parents: 138 diff changeset	5957	((width ~~ newWidth) or:[height ~~ newHeight]) ifTrue:[
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5958	realized ifFalse:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5959	width := newWidth.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5960	height := newHeight.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5961	self extentChangedFlag:true.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5962	^ self
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5963	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5964
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5965	((newWidth <= width) and:[newHeight <= height]) ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5966	how := #smaller
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5967	] ifFalse:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5968	((newWidth >= width) and:[newHeight >= height]) ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5969	how := #larger
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5970	]
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5971	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5972
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5973	margin ~~ 0 ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5974	mustRedrawBottomEdge := newHeight < height.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5975	mustRedrawRightEdge := newWidth < width.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5976	anyEdge := mustRedrawBottomEdge or:[mustRedrawRightEdge].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5977
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5978	mustRedrawPreviousRightBorderArea := newWidth > width.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5979	mustRedrawPreviousBottomBorderArea := newHeight > height.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5980	] ifFalse:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5981	anyEdge := mustRedrawPreviousRightBorderArea := mustRedrawPreviousBottomBorderArea := false
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5982	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5983
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5984	mustRedrawPreviousRightBorderArea ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5985	self invalidateDeviceRectangle:((width-margin)@0 extent:margin@height) repairNow:false.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5986	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5987	mustRedrawPreviousBottomBorderArea ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5988	self invalidateDeviceRectangle:((0 @ (height-margin)) extent:width@margin) repairNow:false.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5989	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5990
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5991	oldWidth := width.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5992	oldHeight := height.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5993
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5994	width := newWidth.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5995	height := newHeight.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5996
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5997	"recompute inner-clip if needed"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5998	self setInnerClip.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	5999
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6000	"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6001	must first process pending exposes;
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6002	otherwise, those may be drawn at a wrong position
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6003	"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6004	"/ claus: no; expose events are in the same queue as configure events;
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6005	"/ which is exactly for that reason ...
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6006
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6007	"/ windowGroup notNil ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6008	"/ windowGroup processExposeEvents
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6009	"/ ].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6010	self sizeChanged:how from:(oldWidth@oldHeight).
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6011
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6012	(anyEdge and:[shown]) ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6013	mustRedrawBottomEdge ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6014	self invalidateDeviceRectangle:((0 @ (height-margin)) extent:width@margin) repairNow:false.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6015	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6016	mustRedrawRightEdge ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6017	self invalidateDeviceRectangle:((width-margin)@0 extent:margin@height) repairNow:false.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6018	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6019	]
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6020	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6021
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6022	originChanged ifTrue:[
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6023	dependents notNil ifTrue:[ self changed:#origin ].
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	6024	].
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	6025
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	6026	"Modified: / 10.10.2001 / 14:14:19 / cg"
138 3167663e38e7 . claus parents: 137 diff changeset	6027	!
3167663e38e7 . claus parents: 137 diff changeset	6028
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6029	containerChangedSize
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6030	"my container has changed size; if I have relative
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6031	origin/extent or blocks to evaluate, do it now .."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6032
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	6033	\|oldWidth oldHeight oldTop oldLeft newExt newOrg r\|
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6034
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6035	oldWidth := width.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6036	oldHeight := height.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6037	oldTop := top.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6038	oldLeft := left.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6039
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6040	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6041	slowly migrating to use layoutObjects ...
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6042	"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6043	layout isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6044	newOrg := self computeOrigin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6045	newExt := self computeExtent.
7109 ff747d290e30 #BUGFIX Stefan Vogel <sv@exept.de> parents: 7105 diff changeset	6046	] ifFalse:[layout isAssociation ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6047	layout key == #extent ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6048	newOrg := 1@1.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6049	newExt := layout value.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6050	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6051	self shouldImplement.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6052	].
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6053	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6054	r := (layout rectangleRelativeTo:(superView viewRectangle)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6055	preferred:[self preferredBounds]).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6056	newOrg := r origin rounded.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6057	newExt := r extent rounded.
7109 ff747d290e30 #BUGFIX Stefan Vogel <sv@exept.de> parents: 7105 diff changeset	6058	"/ newOrg printCR.
ff747d290e30 #BUGFIX Stefan Vogel <sv@exept.de> parents: 7105 diff changeset	6059	"/ newExt printCR.
ff747d290e30 #BUGFIX Stefan Vogel <sv@exept.de> parents: 7105 diff changeset	6060	]].
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6061
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6062	"/ newOrg notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6063	"/ ((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	6064	"/ newOrg := nil
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6065	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6066	"/ ].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6067	"/ newExt notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6068	"/ ((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	6069	"/ newExt := nil
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6070	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6071	"/ ].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6072	"/
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6073	"/ newExt isNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6074	"/ newOrg notNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6075	"/ self pixelOrigin:newOrg
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6076	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6077	"/ ] ifFalse:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6078	"/ newOrg isNil ifTrue:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6079	"/ self pixelExtent:newExt
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6080	"/ ] ifFalse:[
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6081	"/ 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	6082	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6083	"/ ]
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	6084	self pixelOrigin:newOrg extent:newExt
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6085
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6086	"Modified: 19.7.1996 / 17:32:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6087	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6088
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6089	containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6090	"my container was mapped (became visible).
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6091	If I was previously realized, this implies that I myself
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6092	am now mapped as well."
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6093
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6094	"/ if I was not previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6095	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6096
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6097	realized ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6098	shown ifFalse:[
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6099	"/ old:
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6100	"/ shown := true.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6101	"/ subViews notNil ifTrue:[
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6102	"/ subViews do:[:v \|
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6103	"/ v containerMapped
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6104	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6105	"/ ]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6106
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6107	"/ which is equivalent to:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6108	self mapped.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6109	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6110	].
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6111
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6112	"Modified: 30.5.1996 / 11:41:02 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6113	"Created: 19.7.1996 / 17:41:10 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6114	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6115
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6116	containerUnmapped
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6117	"my container was unmapped
7232 316a6bdc26a7 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	6118	- this implies that the receiver is now also unmapped."
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6119
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6120	"/ if I was previously shown, tell it to all of
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6121	"/ my subviews (they remember this in the shown instVar)
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6122
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6123	realized ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6124	shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6125	self unmapped
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6126	]
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6127	]
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6128
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6129	"Modified: 30.5.1996 / 11:41:25 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6130	"Created: 19.7.1996 / 17:43:50 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6131	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6132
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	6133	copyDataEvent:parameter eventData:msgData
4999 b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	6134	"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	6135	Forwarded to my application (If I have one)"
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	6136
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	6137	\|app\|
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	6138
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	6139	(app := self application) notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6140	app copyDataEvent:parameter eventData:msgData
4999 b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	6141	].
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	6142	!
b56e53c1b4d4 hooks for client and copyData events Claus Gittinger <cg@exept.de> parents: 4993 diff changeset	6143
5749 aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6144	createWindowX:x y:y width:w height:h
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6145
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6146	"A window has been created in myself, nothing to do here.
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6147	Note, that SubstructureNotify events must be enabled to get
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6148	this event. To enable, do:
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6149
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6150	self enableEvent: #substructureNotify
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6151
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6152	"
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6153
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6154	"Created: / 01-06-2011 / 12:59:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6155	!
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6156
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6157	destroyed
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6158	"view has been destroyed by someone else (usually window system)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6159
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6160	shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6161	shown := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6162	dependents notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6163	self changed:#visibility.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6164	self changed:#destroyed
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6165	].
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6166	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6167	super destroyed
3183 e55c249cd6e5 kludge: remove objectAttributes when destroyed. Claus Gittinger <cg@exept.de> parents: 3182 diff changeset	6168
e55c249cd6e5 kludge: remove objectAttributes when destroyed. Claus Gittinger <cg@exept.de> parents: 3182 diff changeset	6169	"Modified: / 18.2.2000 / 11:20:34 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6170	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6171
4460 c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	6172	dropMessage:dropTypeSymbol data:dropValue position:dropPosition handle:dropHandle
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	6173	"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	6174	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	6175
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	6176	\|dropObjects\|
b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	6177
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6178	(dropTypeSymbol == WindowEvent dropType_file
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	6179	or:[dropTypeSymbol == WindowEvent dropType_directory]) ifTrue:[
7974 2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6180	dropObjects := Array with:(DropObject newFile:dropValue)
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	6181	] ifFalse:[
7974 2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6182	dropTypeSymbol == WindowEvent dropType_files ifTrue:[
2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6183	dropObjects := (dropValue collect:[:fn \| DropObject newFile:fn])
2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6184	] ifFalse:[
2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6185	dropTypeSymbol == WindowEvent dropType_text ifTrue:[
2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6186	dropObjects := Array with:(DropObject newText:dropValue)
2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6187	] ifFalse:[
2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6188	dropObjects := Array with:(DropObject new:dropValue)
2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6189	]
2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6190	]
4455 934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	6191	].
934b54c11ed4 drop from windows Claus Gittinger <cg@exept.de> parents: 4452 diff changeset	6192
4460 c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	6193	"/ Transcript showCR:'Drop:'.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	6194	"/ Transcript show:' View:'; showCR:self.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	6195	"/ Transcript show:' Position:'; showCR:dropPosition.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	6196	"/ Transcript show:' Data:'; showCR:dropObjects.
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	6197
c8537e5fe249 drag and drop cleanup Claus Gittinger <cg@exept.de> parents: 4455 diff changeset	6198	self alienDrop:dropObjects position:dropPosition.
7974 2898a1cdf850 #BUGFIX by sr sr parents: 7957 diff changeset	6199	(device ? Screen current) dragFinish:dropHandle.
1559 b23f130589d2 checkin from browser Claus Gittinger <cg@exept.de> parents: 1555 diff changeset	6200
4647 a13c63aed017 drop: canDrop:at:/drop:at: now invoke canDrop:/drop:; Claus Gittinger <cg@exept.de> parents: 4630 diff changeset	6201	"Modified: / 13-10-2006 / 10:10:23 / cg"
1544 4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	6202	!
4b78320b98fe dummy client- and dropMessage handling Claus Gittinger <cg@exept.de> parents: 1524 diff changeset	6203
135 cf8e46015072 . claus parents: diff changeset	6204	exposeX:x y:y width:w height:h
cf8e46015072 . claus parents: diff changeset	6205	"a low level redraw event from device
cf8e46015072 . claus parents: diff changeset	6206	- let subclass handle the redraw and take care of edges here"
cf8e46015072 . claus parents: diff changeset	6207
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6208	\|leftEdge topEdge rightEdge botEdge anyEdge nx ny nw nh old oldPaint\|
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6209
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	6210	shown ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6211	^ self
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6212	].
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6213
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6214	nw := w.
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6215	nh := h.
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6216	nx := x.
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6217	ny := y.
135 cf8e46015072 . claus parents: diff changeset	6218
cf8e46015072 . claus parents: diff changeset	6219	anyEdge := false.
cf8e46015072 . claus parents: diff changeset	6220
cf8e46015072 . claus parents: diff changeset	6221	"
cf8e46015072 . claus parents: diff changeset	6222	check if there is a need to draw an edge (i.e. if margin is hit)
cf8e46015072 . claus parents: diff changeset	6223	"
cf8e46015072 . claus parents: diff changeset	6224	(margin ~~ 0) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6225	\|currentTransformation\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6226
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6227	leftEdge := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6228	topEdge := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6229	rightEdge := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6230	botEdge := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6231	currentTransformation := gc transformation.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6232	currentTransformation notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6233	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6234	need device coordinates for this test
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6235	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6236	nx := currentTransformation applyToX:nx.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6237	ny := currentTransformation applyToY:ny.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6238	nw := currentTransformation applyScaleX:nw.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6239	nh := currentTransformation applyScaleY:nh.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6240	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6241	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6242	adjust expose rectangle, to exclude the margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6243	Care for rounding errors ...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6244	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6245	(nx class ~~ SmallInteger) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6246	old := nx.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6247	nx := nx truncated.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6248	nw := nw + (nx - old).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6249	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6250	(ny class ~~ SmallInteger) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6251	old := ny.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6252	ny := ny truncated.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6253	nh := nh + (ny - old).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6254	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6255	(nw class ~~ SmallInteger) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6256	nw := nw truncated + 1
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6257	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6258	(nh class ~~ SmallInteger) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6259	nh := nh truncated + 1
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6260	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6261
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6262	(nx < margin) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6263	old := nx.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6264	nx := margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6265	nw := nw - (nx - old).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6266	leftEdge := anyEdge := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6267	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6268	((nx + nw - 1) >= (width - margin)) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6269	nw := (width - margin - nx).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6270	rightEdge := anyEdge := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6271	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6272	(ny < margin) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6273	old := ny.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6274	ny := margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6275	nh := nh - (ny - old).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6276	topEdge := anyEdge := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6277	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6278	((ny + nh - 1) >= (height - margin)) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6279	nh := (height - margin - ny).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6280	botEdge := anyEdge := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6281	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6282	currentTransformation notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6283	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6284	need logical coordinates for redraw
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6285	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6286	nx := currentTransformation applyInverseToX:nx.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6287	ny := currentTransformation applyInverseToY:ny.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6288	nw := currentTransformation applyInverseScaleX:nw.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6289	nh := currentTransformation applyInverseScaleY:nh.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6290	].
135 cf8e46015072 . claus parents: diff changeset	6291	].
cf8e46015072 . claus parents: diff changeset	6292
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6293	(nw > 0 and:[nh > 0]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6294	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6295	redraw inside area
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6296	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6297	self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6298	clippingBounds:(Rectangle left:nx top:ny width:nw height:nh);
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6299	redrawX:nx y:ny width:nw height:nh.
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	6300	].
135 cf8e46015072 . claus parents: diff changeset	6301
cf8e46015072 . claus parents: diff changeset	6302	"
cf8e46015072 . claus parents: diff changeset	6303	redraw edge(s)
cf8e46015072 . claus parents: diff changeset	6304	"
cf8e46015072 . claus parents: diff changeset	6305	anyEdge ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6306	self clippingBounds:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6307	oldPaint := self paint.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6308	border notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6309	border displayOn:self forDisplayBox:(Rectangle left:0 top:0 width:width height:height).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6310	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6311	(topEdge and:[leftEdge and:[botEdge and:[rightEdge]]]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6312	self drawEdges
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6313	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6314	topEdge ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6315	self drawTopEdge
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6316	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6317	leftEdge ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6318	self drawLeftEdge
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6319	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6320	botEdge ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6321	self drawBottomEdge
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6322	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6323	rightEdge ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6324	self drawRightEdge
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6325	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6326	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6327	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6328	self paint:oldPaint.
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6329	].
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6330	gc deviceClippingBounds:innerClipRect.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6331
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	6332	"Modified: / 25.5.1999 / 14:57:38 / cg"
135 cf8e46015072 . claus parents: diff changeset	6333	!
cf8e46015072 . claus parents: diff changeset	6334
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6335	focusIn
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6336	"got keyboard focus (via the window manager).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6337	Nothing done here"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6338
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	6339	^ self
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6340	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6341
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6342	focusOut
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6343	"lost keyboard focus (via the window manager).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6344	Nothing done here"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6345	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6346
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6347	hasKeyboardFocus:aBoolean
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6348	"notification from the windowGroup that I got the keyboardFocus."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6349
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6350	delegate notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6351	delegate perform:#hasKeyboardFocus: with:aBoolean ifNotUnderstood:nil
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	6352	].
140 0db355079dc4 . claus parents: 138 diff changeset	6353	^ self
0db355079dc4 . claus parents: 138 diff changeset	6354	!
0db355079dc4 . claus parents: 138 diff changeset	6355
0db355079dc4 . claus parents: 138 diff changeset	6356	keyPress:key x:x y:y
0db355079dc4 . claus parents: 138 diff changeset	6357	"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	6358	pass it to the corresponding one.
140 0db355079dc4 . claus parents: 138 diff changeset	6359	Otherwise, forward it to the superview, if there is any."
0db355079dc4 . claus parents: 138 diff changeset	6360
7628 7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6361	<resource: #keyboard ( #Menu
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6362	#ZoomIn #ZoomOut
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6363	#ZoomInAll #ZoomOutAll) >
510 c0c7a04317a9 resources Claus Gittinger <cg@exept.de> parents: 503 diff changeset	6364
3247 d6e631975bd1 forward Menu-key (CMD-Z) to focusView if there is one. Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6365	\|focusView\|
d6e631975bd1 forward Menu-key (CMD-Z) to focusView if there is one. Claus Gittinger <cg@exept.de> parents: 3242 diff changeset	6366
140 0db355079dc4 . claus parents: 138 diff changeset	6367	components notNil ifTrue:[
7628 7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6368	components notNil ifTrue:[
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6369	self componentsContainingX:x y:y do:[:comp :cx :cy \|
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6370	comp keyPress:key x:cx y:cy.
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6371	^ self
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6372	]
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6373	].
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	6374	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	6375
494 cc7765901744 checkin from browser Claus Gittinger <cg@exept.de> parents: 490 diff changeset	6376	key == #Menu ifTrue:[
7628 7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6377	((focusView := self windowGroup focusView) notNil
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6378	and:[focusView ~~ self])
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6379	ifTrue:[
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6380	"/ forward to the focusView
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6381	focusView keyPress:key x:-1 y:-1.
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6382	^ self
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6383	].
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6384	^ self activateMenu.
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6385	].
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6386
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6387	(key == #ZoomIn or:[key == #ZoomOut]) ifTrue:[
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6388	self keyboardZoom:(key == #ZoomIn).
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6389	^ self
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6390	].
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6391	(key == #ZoomInAll or:[key == #ZoomOutAll]) ifTrue:[
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6392	self keyboardZoomInAllViews:(key == #ZoomInAll).
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6393	^ self
135 cf8e46015072 . claus parents: diff changeset	6394	].
cf8e46015072 . claus parents: diff changeset	6395
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	6396	x isNil ifTrue:[
7628 7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6397	"/ already redelegated, but nowhere handled
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6398	superView notNil ifTrue:[
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6399	superView keyPress:key x:nil y:nil.
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6400	].
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6401	^ self
490 1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	6402	].
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	6403
1d2ed059a063 delegated keyboardMessages get nil as x/y Claus Gittinger <cg@exept.de> parents: 489 diff changeset	6404	superView notNil ifTrue:[
7628 7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6405	superView
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6406	dispatchEvent:#keyPress:x:y:
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6407	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	6408
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	6409	"/ WindowEvent
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	6410	"/ sendEvent:#keyPress:x:y:
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	6411	"/ arguments:(Array with:key with:0 with:0)
c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	6412	"/ view:superView
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	6413	] ifFalse:[
7628 7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6414	super keyPress:key x:x y:y
135 cf8e46015072 . claus parents: diff changeset	6415	]
411 2d5deb02d8f8 if not already forwarded, let keyEvents be handled by superView Claus Gittinger <cg@exept.de> parents: 393 diff changeset	6416
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	6417	"Modified: / 20.5.1998 / 22:55:08 / cg"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6418	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6419
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6420	keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6421	"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	6422	pass it to the corresponding one.
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6423	Otherwise, do whatever my superclass would do."
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6424
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6425	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6426	components notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6427	self componentsContainingX:x y:y do:[:comp :cx :cy \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6428	comp keyRelease:key x:cx y:cy.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6429	^ self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6430	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6431	].
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6432	].
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6433
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6434	super keyRelease:key x:x y:y
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6435
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6436	"Modified: 8.5.1996 / 23:44:36 / cg"
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	6437	"Created: 8.5.1996 / 23:45:28 / cg"
135 cf8e46015072 . claus parents: diff changeset	6438	!
cf8e46015072 . claus parents: diff changeset	6439
7417 a7e3b6a9aa63 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7416 diff changeset	6440	keyboardZoom:larger
a7e3b6a9aa63 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7416 diff changeset	6441	"CTRL+/- action.
a7e3b6a9aa63 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7416 diff changeset	6442	ignored here - redefined in views which can zoom"
a7e3b6a9aa63 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7416 diff changeset	6443
7626 b6c8623c5226 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7622 diff changeset	6444	"/ self changeScaleForMouseWheelZoom:amount
7417 a7e3b6a9aa63 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7416 diff changeset	6445	!
a7e3b6a9aa63 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7416 diff changeset	6446
7628 7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6447	keyboardZoomInAllViews:larger
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6448	"CTRL+/- zoom action global.
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6449	Sent to all windows; some may ignore it."
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6450
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6451	self device allViewsDo:[:each \|
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6452	each keyboardZoom:larger
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6453	].
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6454	!
7b637c35e9ea #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7626 diff changeset	6455
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6456	mapped
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6457	"the view has been mapped (by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6458	action - i.e. window manager de-iconified me)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6459
5082 3b3aaba11664 only send visibility-change if there really is one when mapped Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	6460	\|shownBefore\|
3b3aaba11664 only send visibility-change if there really is one when mapped Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	6461
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6462	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6463	the old code was:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6464
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6465	realized := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6466	shown := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6467	...
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6468
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6469	this created a race condition, if the view was
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6470	realized and shortly after unrealized - before the mapped event
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6471	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	6472	view was not.
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6473	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	6474	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6475
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6476	realized ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6477	shownBefore := shown.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6478
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6479	"/ currently, the 'shown ifFalse:' optimization is
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6480	"/ not ok, since 'shown' is also modified by visibilityChanges.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6481	"/ Also, when remapped, X11 only sends a mapped event for the topView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6482	"/ Therefore, synthetically generate those #superViewMapped messages
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6483	"/ in any case.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6484
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6485	shown := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6486	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6487	backed views will not get expose events - have
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6488	to force a redraw here to get things drawn into
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6489	backing store.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6490	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6491	backed ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6492	self redrawX:0 y:0 width:width height:height
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6493	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6494
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6495	"/ tell my subViews ...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6496	subViews notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6497	subViews do:[:v \|
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	6498	"/ v shown ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6499	v mapped.
2721 2575a1e771cc mapped event handling Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	6500	"/ ]
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6501	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6502	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6503	shownBefore ~~ true ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6504	dependents notNil ifTrue:[ self changed:#visibility ].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6505	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6506	self takeFocusWhenMapped ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6507	"/ this is a one-shot!!
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6508	self takeFocusWhenMapped:false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6509	self assignKeyboardFocusToFirstKeyboardConsumer.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6510	"/ self requestFocus
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6511	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6512	]
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6513
5667 c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	6514	"Modified: / 09-12-2010 / 18:12:24 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6515	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6516
2733 5af2417bc450 pass x/y with mouseWheel event Claus Gittinger <cg@exept.de> parents: 2727 diff changeset	6517	mouseWheelMotion:buttonState x:x y:y amount:amount deltaTime:dTime
2701 ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	6518	"the mouseWheel was turned - handle as a scroll operation.
8131 494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6519	Specialized application windows may redefine this for any other operation.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6520	Here, we scroll some amount which depends upon the view's contents (but never too much);
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6521
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6522	If ctrl is pressed, always scroll one page;
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6523	this can be changed to zoom in/out with ctrl (as in OSX)
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6524	by:
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6525	UserPreferences current allowMouseWheelZoom:false
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6526	UserPreferences current allowMouseWheelZoom:true
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6527
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6528	If shift is pressed, always scroll a single scroll-step;
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6529	this can be changed to scroll horizontally with shift (as in OSX)
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6530	by:
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6531	UserPreferences current shiftMouseWheelScrollsHorizontally:false
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6532	UserPreferences current shiftMouseWheelScrollsHorizontally:true
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6533	"
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6534
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6535	\|prefs horizontal pageScroll amountToScroll zoomInOrOut sensor\|
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6536
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	6537	sensor := self sensor.
8131 494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6538	prefs := UserPreferences current.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6539
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6540	horizontal := pageScroll := zoomInOrOut := false.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6541
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6542	sensor ctrlDown ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6543	prefs allowMouseWheelZoom ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6544	zoomInOrOut := true
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6545	].
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6546	].
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6547	sensor metaDown ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6548	prefs metaIsMouseWheelZoom ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6549	zoomInOrOut := true
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6550	] ifFalse:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6551	horizontal := true
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6552	].
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6553	].
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6554	sensor shiftDown ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6555	prefs shiftMouseWheelScrollsHorizontally ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6556	horizontal := true
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6557	] ifFalse:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6558	pageScroll := true.
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6559	].
5130 0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6560	].
0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6561
8131 494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6562	zoomInOrOut ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6563	self mouseWheelZoom:amount.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6564	^ self.
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6565	].
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6566
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6567	pageScroll ifFalse:[
8131 494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6568	horizontal ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6569	amountToScroll := self horizontalScrollStep.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6570	amountToScroll := self scaleMouseWheelHorizontalScrollAmount:amountToScroll
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6571	] ifFalse:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6572	amountToScroll := self verticalScrollStep.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6573	amountToScroll := self scaleMouseWheelScrollAmount:amountToScroll
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6574	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6575	].
2701 ac077dbc60be checkin from browser Claus Gittinger <cg@exept.de> parents: 2699 diff changeset	6576
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6577	amount > 0 ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6578	pageScroll ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6579	horizontal ifTrue:[self pageLeft] ifFalse:[self pageUp]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6580	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6581	horizontal ifTrue:[self scrollLeft:amountToScroll] ifFalse:[self scrollUp:amountToScroll]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6582	]
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6583	] ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6584	pageScroll ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6585	horizontal ifTrue:[self pageRight] ifFalse:[self pageDown]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6586	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6587	horizontal ifTrue:[self scrollRight:amountToScroll] ifFalse:[self scrollDown:amountToScroll]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	6588	]
2709 188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6589	].
188745025c87 adjust mouseWheel speed; Claus Gittinger <cg@exept.de> parents: 2703 diff changeset	6590
8131 494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6591	"Modified: / 30-08-2017 / 14:52:22 / cg"
2699 01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6592	!
01594e76fc92 checkin from browser Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	6593
5130 0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6594	mouseWheelZoom:amount
5132 b1161f2c78ca * empty log message * Claus Gittinger <cg@exept.de> parents: 5130 diff changeset	6595	"CTRL-wheel action.
b1161f2c78ca * empty log message * Claus Gittinger <cg@exept.de> parents: 5130 diff changeset	6596	ignored here - redefined in views which can zoom"
b1161f2c78ca * empty log message * Claus Gittinger <cg@exept.de> parents: 5130 diff changeset	6597
5133 6d3761ef1e2a mouseWheel zoom Claus Gittinger <cg@exept.de> parents: 5132 diff changeset	6598	"/ self changeScaleForMouseWheelZoom:amount
5130 0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6599	!
0bc49bea4bab allowMouseWheelZoom Claus Gittinger <cg@exept.de> parents: 5087 diff changeset	6600
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6601	pointerEnter:state x:x y:y
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6602	"mouse pointer entered - request the keyboard focus (sometimes)"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	6603
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6604	\|doRequestFocus\|
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6605
7892 0019b3cff185 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7869 diff changeset	6606	"/ first ask my flags if it's enforced or forbidden
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6607	self requestFocusOnPointerEnter ifTrue:[
7690 f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6608	doRequestFocus := true
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6609	] ifFalse:[
7690 f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6610	self doNotRequestFocusOnPointerEnter ifTrue:[
f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6611	doRequestFocus := false
f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6612	] ifFalse:[
f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6613	"/ then look for the settings.
f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6614	doRequestFocus := self wantsFocusWithPointerEnter
f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6615	]
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6616	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6617
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	6618	doRequestFocus ifTrue:[
7690 f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6619	self requestFocus.
f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6620	].
f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6621	dependents notNil ifTrue:[ self changed:#pointerInView with:true ]
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6622
5924 50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	6623	"Modified: / 01-08-2012 / 17:06:41 / cg"
7892 0019b3cff185 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7869 diff changeset	6624	"Modified (format): / 13-02-2017 / 20:30:30 / cg"
1381 31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6625	!
31b981e0dcad delegate focusIn/out Claus Gittinger <cg@exept.de> parents: 1379 diff changeset	6626
6987 46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	6627	pointerLeave:buttonState
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	6628	"mouse pointer left"
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	6629
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	6630	super pointerLeave:buttonState.
7690 f961b5d77d50 #BUGFIX by mawalch mawalch parents: 7675 diff changeset	6631	dependents notNil ifTrue:[ self changed:#pointerInView with:false]
6987 46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	6632	!
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	6633
5749 aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6634	propertyChange:propertyId state: state
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6635
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	6636	"A property has changed, nothing to do here.
5749 aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6637	Note:
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	6638	This is very X specific. PropertyChange events must be enabled
5749 aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6639	to get this event. To enable, do:
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6640
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6641	self enableEvent: #propertyChange
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6642
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6643	"
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6644
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6645	"Created: / 01-06-2011 / 13:39:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6646	!
aad1af079611 Jan's changes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5729 diff changeset	6647
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6648	reparented
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6649	"the view has changed its parent by some outside
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6650	action - i.e. window manager has added a frame.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6651	nothing done here"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6652
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6653	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6654	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6655
6516 41d8ab4b00c4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6515 diff changeset	6656	requestAutoAccept
41d8ab4b00c4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6515 diff changeset	6657	"request to accept: this is invoked when a dialog closes via accept or cancel.
41d8ab4b00c4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6515 diff changeset	6658	This forces my value to be accepted into my model.
41d8ab4b00c4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6515 diff changeset	6659	Any widget may suppress the ok/cancel, by returning false."
41d8ab4b00c4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6515 diff changeset	6660
41d8ab4b00c4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6515 diff changeset	6661	^ true
41d8ab4b00c4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6515 diff changeset	6662	!
41d8ab4b00c4 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6515 diff changeset	6663
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6664	saveAndTerminate
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6665	"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	6666	- notice, that not all window managers are nice enough to
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6667	send this event, but simply destroy the view instead.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6668	Can be redefined in subclasses to do whatever is required
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6669	to prepare for restart."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6670
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6671	self closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6672
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6673	"Modified: / 3.8.1998 / 19:51:26 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6674	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6675
8131 494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6676	scaleMouseWheelHorizontalScrollAmount:amountToScroll
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6677	\|wCont factor innerWidth\|
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6678
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6679	"/ test whether innerWidth == 0
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6680	"/ could happen if the view is resized to 0 (panel)
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6681	innerWidth := self innerWidth.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6682	innerWidth > 0 ifFalse:[ ^ 1 ].
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6683
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6684	wCont := self heightOfContents.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6685	wCont > (innerWidth * 3) ifTrue:[
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6686	factor := (wCont // innerWidth) min:4.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6687	^ amountToScroll * factor.
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6688	].
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6689	^ amountToScroll
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6690
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6691	"Created: / 30-08-2017 / 14:42:26 / cg"
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6692	!
494a2b1c617d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 8097 diff changeset	6693
4674 5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6694	scaleMouseWheelScrollAmount:amountToScroll
4739 a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6695	\|hCont factor innerHeight\|
a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6696
a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6697	"/ test whether innerHeight == 0
4855 1a47c76fa152 comment Stefan Vogel <sv@exept.de> parents: 4853 diff changeset	6698	"/ could happen if the view is resized to 0 (panel)
4739 a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6699	innerHeight := self innerHeight.
a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6700	innerHeight > 0 ifFalse:[ ^ 1 ].
4674 5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6701
5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6702	hCont := self heightOfContents.
4739 a0041d972c79 bugfix for views with innerHeight < 1 ca parents: 4736 diff changeset	6703	hCont > (innerHeight * 3) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6704	factor := (hCont // innerHeight) min:4.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6705	^ amountToScroll * factor.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6706	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6707	^ amountToScroll
4674 5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6708	!
5677b78c2790 mouse wheel scrolling refactoring fm parents: 4654 diff changeset	6709
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6710	sizeChanged:how
6318 51e71bc70bce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6315 diff changeset	6711	"tell subviews that I changed size.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6712	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	6713	in which subviews are notified (possibly reducing redraw activity)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6714
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6715	\|subViews\|
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6716
6954 22e2a072513b #OTHER Claus Gittinger <cg@exept.de> parents: 6952 diff changeset	6717	viewBackground isViewBackground ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6718	"/ there is only one, which needs this: a gradient over the actual height/width;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6719	"/ this cannot just fill the new exposed area, but must recompute the gradient scales
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6720	(viewBackground needsFullRedrawOnChangeOfWidth
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6721	or:[ viewBackground needsFullRedrawOnChangeOfHeight]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6722	self invalidate
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6723	]
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	6724	].
6954 22e2a072513b #OTHER Claus Gittinger <cg@exept.de> parents: 6952 diff changeset	6725
6114 52c6e2447fff class: SimpleView Claus Gittinger <cg@exept.de> parents: 6090 diff changeset	6726	(subViews := self subViews) notEmptyOrNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6727	(how isNil "false"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6728	or:[how == #smaller]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6729	subViews do:[:view \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6730	view notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6731	view containerChangedSize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6732	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6733	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6734	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6735	"doing it reverse speeds up resizing - usually subviews
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6736	are created from top-left to bottom-right; therefore
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6737	bottom-right views will be moved/resized first, then top-left ones;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6738	this avoids multiple redraws of subviews"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6739
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6740	subViews reverseDo:[:view \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6741	view notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6742	view containerChangedSize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6743	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6744	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6745	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6746	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6747
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6748	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6749	(how isNil "false"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6750	or:[how == #smaller]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6751	components do:[:view \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6752	view containerChangedSize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6753	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6754	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6755	"doing it reverse speeds up resizing - usually subviews
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6756	are created from top-left to bottom-right; therefore
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6757	bottom-right views will be moved/resized first, then top-left ones;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6758	this avoids multiple redraws of subviews"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6759
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6760	components reverseDo:[:view \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6761	view containerChangedSize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6762	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6763	]
135 cf8e46015072 . claus parents: diff changeset	6764	].
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	6765
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6766	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	6767
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6768	superView notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6769	superView subViewChangedSize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6770	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	6771
2084 e997f6ea54c2 also pass down #larger to sizeCanged: method. Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	6772	"Modified: / 2.4.1998 / 13:59:59 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6773	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6774
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6775	sizeChanged:how from:oldExtent
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6776	"tell subviews that I changed size.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6777	How is either #smaller, #larger or nil, and is used to control the order,
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6778	in which subviews are notified (possibly reducing redraw activity).
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6779
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6780	In previous versions, there was only one argument, how,
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6781	which was either #smaller or #larger or nil (if not known).
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6782	This argument was used in some widgets to optimize (avoid) some recomputations.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6783	However, it was too unspecific on which dimension changed;
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6784	therefore, now this method is called.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6785	For backward compatibility, it calls the old sizeChanged: method.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6786	If you redefine this, make sure to call super sizeChanged:, not super sizeChanged:from:,
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6787	to avoid an endless recursion."
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6788
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6789	self sizeChanged:how
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6790	!
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	6791
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6792	subViewChangedSize
320 b7b8dc88fe9f interest is written with one 'r' (shame on me) Claus Gittinger <cg@exept.de> parents: 312 diff changeset	6793	"some subview has changed its size; we are not interested
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6794	in that here, but some geometry managers redefine this, to reorganize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6795	components if that happens."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6796
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6797	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6798
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6799	"Created: 22.9.1995 / 14:44:59 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6800	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6801
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6802	terminate
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6803	"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	6804	- notice, that not all window managers are nice enough to
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6805	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	6806	Can be redefined in subclasses to do whatever cleanup is
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6807	required."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6808
2216 a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6809	self closeRequest
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6810
a9d902b2cc4b #terminate -> #closeRequest -> #destroy Claus Gittinger <cg@exept.de> parents: 2189 diff changeset	6811	"Modified: / 3.8.1998 / 19:51:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6812	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6813
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6814	unmapped
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	6815	"the view has been unmapped
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6816	(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	6817	or due to unmapping of my parentView)."
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6818
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6819	"/ 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	6820	"/ my subviews (they remember this in the shown instVar)
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	6821
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	6822	"/ currently, the 'shown ifTrue:' optimization is
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6823	"/ not ok, since 'shown' is also modified by visibilityChanges.
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	6824	"/ 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	6825	"/ Therefore, synthetically generate those #superViewUnmapped messages
9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	6826	"/ in any case.
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6827	\|wdgr\|
769 9470770c306e map/unmap messages Claus Gittinger <cg@exept.de> parents: 765 diff changeset	6828
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6829	shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6830	shown := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6831	dependents notNil ifTrue:[ self changed:#visibility ].
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6832	].
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6833	(wdgr := self windowGroup) notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6834	wdgr focusView == self ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6835	wdgr focusViewUnmapped.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6836	].
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	6837	].
a17606a09947 focus handling ca parents: 4734 diff changeset	6838
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6839	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6840	subViews do:[:v \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6841	v containerUnmapped
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6842	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6843	dependents notNil ifTrue:[ self changed:#visibility ].
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6844	]
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6845
bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	6846	"Modified: 25.2.1997 / 22:40:52 / cg"
135 cf8e46015072 . claus parents: diff changeset	6847	!
cf8e46015072 . claus parents: diff changeset	6848
cf8e46015072 . claus parents: diff changeset	6849	visibilityChange:how
cf8e46015072 . claus parents: diff changeset	6850	"the visibility of the view has changed (by some outside
cf8e46015072 . claus parents: diff changeset	6851	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	6852	Using this knowledge avoids useless redraw in obscured views."
135 cf8e46015072 . claus parents: diff changeset	6853
7132 2cbd7562cfc8 #REFACTORING Stefan Vogel <sv@exept.de> parents: 7127 diff changeset	6854	\|newShown\|
2cbd7562cfc8 #REFACTORING Stefan Vogel <sv@exept.de> parents: 7127 diff changeset	6855
2cbd7562cfc8 #REFACTORING Stefan Vogel <sv@exept.de> parents: 7127 diff changeset	6856	newShown := how ~~ #fullyObscured.
2cbd7562cfc8 #REFACTORING Stefan Vogel <sv@exept.de> parents: 7127 diff changeset	6857	newShown ~~ shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6858	shown := newShown.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6859	dependents notNil ifTrue:[ self changed:#visibility ].
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	6860	].
3139 fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6861	!
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6862
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6863	visibilityStateChanged
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6864	"this is called when our visibilityChannel changes"
fd771ae3826a visibilityChannel support Claus Gittinger <cg@exept.de> parents: 3124 diff changeset	6865
3410 f345f5f8e704 Undo prev change. Stefan Vogel <sv@exept.de> parents: 3409 diff changeset	6866	self isVisible:visibilityChannel value
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6867	!
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6868
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6869	win32NativeScroll:scrollCode position:newPosition
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6870	"this is generated by a native scrollBar widget.
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6871	We should never arrive here, as its only supposed to be
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6872	sent to scrollableViews..."
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6873
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6874	scrollCode == #SB_LINEDOWN ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6875	self scrollDown.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6876	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6877	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6878	scrollCode == #SB_LINEUP ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6879	self scrollUp.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6880	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6881	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6882	scrollCode == #SB_LINELEFT ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6883	self scrollLeft.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6884	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6885	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6886	scrollCode == #SB_LINERIGHT ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6887	self scrollRight.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6888	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6889	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6890	scrollCode == #SB_PAGEDOWN ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6891	self pageDown.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6892	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6893	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6894	scrollCode == #SB_PAGEUP ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6895	self pageUp.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6896	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6897	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6898	scrollCode == #SB_PAGELEFT ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6899	self pageLeft.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6900	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6901	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6902	scrollCode == #SB_PAGERIGHT ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6903	self pageRight.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6904	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6905	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6906	scrollCode == #SB_THUMBPOSITIONVERTICAL ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6907	self scrollVerticalToPercent:newPosition.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6908	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6909	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6910	scrollCode == #SB_THUMBPOSITIONHORIZONTAL ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6911	self scrollHorizontalToPercent:newPosition.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6912	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6913	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6914	scrollCode == #SB_THUMBTRACKVERTICAL ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6915	self scrollVerticalToPercent:newPosition.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6916	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6917	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6918	scrollCode == #SB_THUMBTRACKHORIZONTAL ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6919	self scrollHorizontalToPercent:newPosition.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6920	^ self.
4833 384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6921	].
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6922
384612cc7d37 win32NativeScroll:position: moved from ScrollableView Claus Gittinger <cg@exept.de> parents: 4825 diff changeset	6923	scrollCode == #SB_ENDSCROLL ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	6924	^ self.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	6925	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6926	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	6927
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6928	!SimpleView methodsFor:'event simulation'!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6929
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6930	pushEvent:aSelector
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6931	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6932	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6933	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6934	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	6935
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6936	^ self pushEvent:aSelector withArguments:#()
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6937
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6938	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6939	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6940
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6941	v := View new openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6942	v fill:Color red.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6943	v pushEvent:#redraw
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6944	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6945
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6946	"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	6947	!
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6948
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6949	pushEvent:aSelector with:arg
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6950	"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	6951	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	6952	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	6953	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	6954
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6955	^ self pushEvent:aSelector withArguments:(Array with:arg)
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6956
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6957	"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	6958	!
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6959
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6960	pushEvent:aSelector with:arg1 with:arg2
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6961	"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	6962	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	6963	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	6964	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	6965
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6966	^ 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	6967
d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6968	"Created: / 10.6.1998 / 17:27:41 / cg"
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6969	!
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6970
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6971	pushEvent:aSelector withArguments:args
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6972	"push some messageSend into my event queue -
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6973	I will perform the corresponding method when its time
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6974	to handle events (useful to update low-prio views from
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6975	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	6976
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	6977	self sensor pushUserEvent:aSelector for:self withArguments:args
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6978
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6979	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6980	\|v\|
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6981
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6982	v := (Button label:'hello') openAndWait.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6983	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6984	v pushEvent:#buttonPress:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6985	Delay waitForSeconds:1.
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6986	v pushEvent:#buttonRelease:x:y: withArguments:#(1 10 10).
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6987	"
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	6988
2143 d5b9c2e64ce9 added #pushEvent:with: and #pushEvent:with:with: Claus Gittinger <cg@exept.de> parents: 2138 diff changeset	6989	"Modified: / 10.6.1998 / 17:28:16 / cg"
4347 528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6990	!
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	6991
5774 56671ce7160c added: #simulateButtonPress:at: Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	6992	simulateButtonPress:button at:aPoint
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	6993	"simulate a button press by determining which sub-view is affected and
6853 541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	6994	synthetically generating a buttonPressEvent for whatever view is underneath.
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	6995	Returns the view which precessed the event or nil."
5774 56671ce7160c added: #simulateButtonPress:at: Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	6996
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	6997	^ self simulateButtonPress:button at:aPoint sendDisplayEvent:false
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	6998
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	6999	"Created: / 12-07-2011 / 14:36:02 / cg"
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7000	!
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7001
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7002	simulateButtonPress:button at:aPoint sendDisplayEvent:sendDisplayEvent
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7003	"simulate a button press by determining which sub-view is affected and
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7004	synthetically generating a buttonPressEvent for whatever view is underneath.
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7005	Returns the view which precessed the event or nil."
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7006
5774 56671ce7160c added: #simulateButtonPress:at: Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	7007	\|ev\|
56671ce7160c added: #simulateButtonPress:at: Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	7008
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7009	ev := WindowEvent buttonPress:button x:0 y:0 view:self.
6851 4c1547ff5459 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6845 diff changeset	7010	"/ x/y will be set in simulateUserEvent:ev at:aPoint
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7011	^ self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7012
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7013	"Created: / 12-07-2011 / 14:36:02 / cg"
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7014	!
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7015
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	7016	simulateButtonRelease:button at:aPoint
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7017	"simulate a button release by determining which sub-view is affected and
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7018	synthetically generating a buttonPressEvent for whatever view is underneath.
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7019	Returns the view which precessed the event or nil."
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7020
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7021	^ self simulateButtonRelease:button at:aPoint sendDisplayEvent:false
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7022
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7023	"Created: / 12-07-2011 / 14:54:37 / cg"
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7024	!
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7025
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7026	simulateButtonRelease:button at:aPoint sendDisplayEvent:sendDisplayEvent
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	7027	"simulate a button release by determining which sub-view is affected and
6853 541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	7028	synthetically generating a buttonPressEvent for whatever view is underneath.
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7029	Returns the view which precessed the event or nil."
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7030
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7031	\|ev\|
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7032
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7033	ev := WindowEvent buttonRelease:button x:0 y:0 view:self.
6851 4c1547ff5459 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6845 diff changeset	7034	"/ x/y will be set in simulateUserEvent:ev at:aPoint
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7035	^ self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7036
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7037	"Created: / 12-07-2011 / 14:54:37 / cg"
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7038	!
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7039
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7040	simulateKeyPress:keyOrStringOrSymbol at:aPoint
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7041	"simulate a key press by determining which sub-view is affected and
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7042	synthetically generating a keyPressEvent for whatever view is underneath.
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7043	Returns the view which processed the event or nil."
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7044
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7045	^ self simulateKeyPress:keyOrStringOrSymbol at:aPoint sendDisplayEvent:false
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7046	!
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7047
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7048	simulateKeyPress:keyOrStringOrSymbol at:aPoint sendDisplayEvent:sendDisplayEvent
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7049	"simulate a key press by determining which sub-view is affected and
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7050	synthetically generating a keyPressEvent for whatever view is underneath.
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7051	Returns the view which processed the event or nil."
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7052
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7053	\|sequence ev lastView\|
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7054
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7055	(keyOrStringOrSymbol isCharacter or:[keyOrStringOrSymbol isSymbol])
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7056	ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7057	ifFalse:[ sequence := keyOrStringOrSymbol ].
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7058
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7059	sequence do:[:each \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7060	ev := WindowEvent keyPress:each x:0 y:0 view:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7061	"/ x/y will be set in simulateUserEvent:ev at:aPoint
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7062	lastView := self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7063	].
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7064	^ lastView
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7065	!
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7066
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7067	simulateKeyPressRelease:keyOrStringOrSymbol at:aPoint
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7068	"simulate a key release by determining which sub-view is affected and
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7069	synthetically generating a keyPressEvent for whatever view is underneath.
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7070	Returns the view which processed the event or nil."
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7071
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7072	^ self simulateKeyPressRelease:keyOrStringOrSymbol at:aPoint sendDisplayEvent:false
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7073	!
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7074
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7075	simulateKeyPressRelease:keyOrStringOrSymbol at:aPoint sendDisplayEvent:sendDisplayEvent
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7076	"simulate a key release by determining which sub-view is affected and
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7077	synthetically generating a keyPressEvent for whatever view is underneath.
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7078	Returns the view which processed the event or nil."
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7079
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7080	\|sequence ev1 ev2 lastView\|
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7081
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7082	(keyOrStringOrSymbol isCharacter or:[keyOrStringOrSymbol isSymbol])
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7083	ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7084	ifFalse:[ sequence := keyOrStringOrSymbol ].
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7085
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7086	sequence do:[:each \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7087	ev1 := WindowEvent keyPress:each x:0 y:0 view:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7088	"/ x/y will be set in simulateUserEvent:ev at:aPoint
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7089	lastView := self simulateUserEvent:ev1 at:aPoint sendDisplayEvent:sendDisplayEvent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7090
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7091	ev2 := WindowEvent keyRelease:each x:0 y:0 view:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7092	"/ x/y will be set in simulateUserEvent:ev at:aPoint
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7093	lastView := self simulateUserEvent:ev2 at:aPoint sendDisplayEvent:sendDisplayEvent.
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7094	].
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7095	^ lastView
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7096	!
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7097
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7098	simulateKeyRelease:keyOrStringOrSymbol at:aPoint
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7099	"simulate a key release by determining which sub-view is affected and
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7100	synthetically generating a keyPressEvent for whatever view is underneath.
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7101	Returns the view which processed the event or nil."
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7102
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7103	^ self simulateKeyRelease:keyOrStringOrSymbol at:aPoint sendDisplayEvent:false
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7104	!
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7105
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7106	simulateKeyRelease:keyOrStringOrSymbol at:aPoint sendDisplayEvent:sendDisplayEvent
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7107	"simulate a key release by determining which sub-view is affected and
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7108	synthetically generating a keyPressEvent for whatever view is underneath.
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7109	Returns the view which processed the event or nil."
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7110
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7111	\|sequence ev lastView\|
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7112
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7113	(keyOrStringOrSymbol isCharacter or:[keyOrStringOrSymbol isSymbol])
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7114	ifTrue:[ sequence := Array with:keyOrStringOrSymbol ]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7115	ifFalse:[ sequence := keyOrStringOrSymbol ].
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7116
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7117	sequence do:[:each \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7118	ev := WindowEvent keyRelease:each x:0 y:0 view:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7119	"/ x/y will be set in simulateUserEvent:ev at:aPoint
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7120	lastView := self simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
6854 e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7121	].
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7122	^ lastView
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7123	!
e0fc5d0dfc25 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6853 diff changeset	7124
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7125	simulateUserEvent:ev at:aPoint
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	7126	"simulate a button press by determining which sub-view is affected and
6855 02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7127	synthetically generating a buttonPressEvent for whatever view is underneath.
02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7128	Cares for any active grab - i.e. if some other view has grabbed the pointer or keyboard
02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7129	the event is sent to the grabView with pointer coordinate translated as required
02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7130	(typically these are popup views like menus)
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7131	Returns the view which precessed the event or nil."
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7132
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7133	^ self simulateUserEvent:ev at:aPoint sendDisplayEvent:false
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7134	!
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7135
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7136	simulateUserEvent:ev at:aPoint sendDisplayEvent:sendDisplayEvent
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7137	"simulate a button press by determining which sub-view is affected and
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7138	synthetically generating a buttonPressEvent for whatever view is underneath.
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7139
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7140	If sendDisplayEvent is true, a real physical event is generated via sendEvent,
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7141	from the Display (xserver). Otherwise, the event is pushed into the widget's event
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7142	queue, without a roundtrip through the display.
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7143
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7144	Otherwise, care for any active grab - i.e. if some other view has grabbed the pointer or keyboard
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7145	the event is sent to the grabView with pointer coordinate translated as required
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7146	(typically these are popup views like menus)
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7147
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7148	Returns the view which processed the event or nil. For displayEvent sending,
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7149	always return the receiver, as we do not know how the grab processing came out at the end"
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7150
6855 02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7151	\|targetView pointXLated\|
02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7152
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7153	sendDisplayEvent ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7154	"/ translate to screen coordinates
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7155	pointXLated := device translatePoint:aPoint from:(self id) to:(device rootWindowId).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7156	device
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7157	sendKeyOrButtonEvent:ev type
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7158	x:pointXLated x y:pointXLated y
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7159	keyOrButton:(ev isKeyEvent ifTrue:[ev rawKey] ifFalse:[ev button])
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7160	state:(ev modifierFlags)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7161	toViewId:self id.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7162	^ self.
6864 ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7163	].
ab6d4dbee1ce class: SimpleView Claus Gittinger <cg@exept.de> parents: 6863 diff changeset	7164
6856 36d81d2f7228 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6855 diff changeset	7165	(ev isButtonEvent or:[ev isPointerEnterLeaveEvent]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7166	"/ if there is a pointer grab, the event has to sent to that one
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7167	targetView := device activePointerGrab.
6855 02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7168	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7169	(ev isKeyEvent) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7170	"/ if there is a pointer grab, the event has to sent to that one
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7171	targetView := device activeKeyboardGrab.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7172	].
6855 02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7173	].
02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7174	targetView isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7175	((0@0 corner:self extent) containsPoint:aPoint) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7176	self subViews do:[:each \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7177	\|whichView\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7178
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7179	whichView := each simulateUserEvent:ev at:(device translatePoint:aPoint fromView:self toView:each).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7180	whichView notNil ifTrue:[^ whichView].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7181	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7182	targetView := self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7183	].
6855 02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7184	].
02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7185
02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7186	targetView notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7187	pointXLated := device translatePoint:aPoint fromView:self toView:targetView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7188	ev x:(pointXLated x).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7189	ev y:(pointXLated y).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7190	ev view:targetView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7191	targetView sensor pushEvent:ev.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7192	^ targetView
6855 02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7193	].
02ba4d520821 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6854 diff changeset	7194
5774 56671ce7160c added: #simulateButtonPress:at: Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	7195	^ nil
56671ce7160c added: #simulateButtonPress:at: Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	7196
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	7197	"Created: / 12-07-2011 / 14:53:19 / cg"
5774 56671ce7160c added: #simulateButtonPress:at: Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	7198	!
56671ce7160c added: #simulateButtonPress:at: Claus Gittinger <cg@exept.de> parents: 5770 diff changeset	7199
4347 528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7200	startButtonLongPressedHandlerProcess
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7201	"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	7202	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	7203	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	7204
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7205	\|p\|
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7206
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7207	self stopButtonLongPressedHandlerProcess.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7208	p :=
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7209	[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7210	Delay waitForSeconds:0.7.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7211	self sensor leftButtonPressed ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7212	"/ simulate a right-button press
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7213	self buttonPress:2 x:0 y:0
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7214	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7215	] newProcess.
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	7216
cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	7217	device buttonLongPressedHandlerProcess:p.
4347 528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7218	p resume.
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7219	!
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7220
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7221	stopButtonLongPressedHandlerProcess
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7222	"stop any long-button-pressed process"
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7223
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7224	\|p\|
528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7225
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	7226	(p := device buttonLongPressedHandlerProcess) notNil ifTrue:[
4347 528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7227	"/ Transcript showCR:'stop'.
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7228	device buttonLongPressedHandlerProcess:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7229	p terminate.
4347 528ba872cca6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4345 diff changeset	7230	].
1302 0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	7231	! !
0d24401dff29 event queue access added Claus Gittinger <cg@exept.de> parents: 1297 diff changeset	7232
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7233	!SimpleView methodsFor:'focus handling'!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7234
6789 a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7235	assignKeyboardFocusTo:aConsumer
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7236	\|wg\|
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7237
6792 b086ceb76f72 bugfix - check if windowGroup is nil Michael Beyl <mb@exept.de> parents: 6789 diff changeset	7238	wg := self windowGroup.
b086ceb76f72 bugfix - check if windowGroup is nil Michael Beyl <mb@exept.de> parents: 6789 diff changeset	7239	wg notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7240	device isWindowsPlatform ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7241	wg focusView:aConsumer byTab:true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7242	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7243	aConsumer requestFocus.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7244	"/ consumer requestFocus. - could be denied; but we force it here
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7245	wg focusView:aConsumer byTab:false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7246	].
6789 a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7247	].
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7248	!
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7249
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7250	assignKeyboardFocusToFirstInputField
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7251	"assign the keyboard focus to the first first keyboardConsumer.
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7252	(in older versions, this used to favour inputfields over editFields;
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7253	see (or redefine) preferFirstInputFieldWhenAssigningInitialFocus)"
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7254
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7255	self obsoleteMethodWarning.
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7256	self assignKeyboardFocusToFirstKeyboardConsumer
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7257	!
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7258
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7259	assignKeyboardFocusToFirstKeyboardConsumer
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7260	"assign the keyboard focus to the first first keyboardConsumer.
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7261	(in older versions, this used to favour inputfields over editFields;
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7262	see (or redefine) preferFirstInputFieldWhenAssigningInitialFocus)"
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7263
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7264	\|firstInputField firstConsumer firstCursorConsumer consumer\|
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7265
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7266	self withAllSubViewsDo:[:v \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7267	v shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7268	(firstInputField isNil and:[v isInputField]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7269	firstInputField := v
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7270	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7271	(firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7272	firstConsumer := v
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7273	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7274	(firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7275	firstCursorConsumer := v
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7276	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7277	].
6789 a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7278	].
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7279	(firstInputField notNil and:[self preferFirstInputFieldWhenAssigningInitialFocus]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7280	consumer := firstInputField.
6789 a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7281	].
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7282	consumer := (consumer ? firstConsumer ? firstCursorConsumer).
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7283	"/ Transcript showCR:consumer.
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7284	consumer notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7285	self assignKeyboardFocusTo:consumer
6789 a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7286	].
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7287
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7288	"Modified: / 29-08-2006 / 14:32:30 / cg"
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7289	!
a1d3aeba44c8 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7290
3150 547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	7291	canTab
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	7292	"returns true if the widget is tabable"
49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	7293
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7294	"/ ^ canTab == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7295	^ flagBits bitTest:FlagCanTab
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7296	!
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7297
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7298	canTab:aBoolean
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	7299	"set widget tabable or not"
49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	7300
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7301	"/ canTab := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7302	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7303	flagBits := flagBits bitOr:FlagCanTab
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7304	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7305	flagBits := flagBits bitClear:FlagCanTab
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7306	].
3150 547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	7307	!
547754678cb9 add new method(s) canTab(:) ca parents: 3139 diff changeset	7308
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7309	doNotRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7310	"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	7311	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	7312
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7313	^ flagBits bitTest:FlagDoNotRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7314	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7315
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7316	doNotRequestFocusOnPointerEnter:aBoolean
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7317	"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	7318	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	7319
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7320	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7321	flagBits := flagBits bitOr:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7322	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7323	flagBits := flagBits bitClear:FlagDoNotRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7324	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7325	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7326
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7327	focusNext
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7328	"get next focus view to self
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7329	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	7330
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	7331	shown ifFalse:[^ nil].
a17606a09947 focus handling ca parents: 4734 diff changeset	7332
a17606a09947 focus handling ca parents: 4734 diff changeset	7333	^ self focusNextForWhich:[:v \| v shown]
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7334	!
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7335
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7336	focusNextChildAfter:aChildView
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7337	"get the next focus view after aChildView in mySelf or nil,
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7338	if there is none.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7339	Skip invisible or disabled widgets"
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7340
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7341	\|viewInSubView index subviewsInFocusOrder\|
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7342
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7343	shown ifFalse:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7344	subViews isNil ifTrue:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7345	subviewsInFocusOrder := self subviewsInFocusOrder.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7346
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7347	index := subviewsInFocusOrder identityIndexOf:aChildView.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7348	index == 0 ifTrue:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7349
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7350	subviewsInFocusOrder from:(index + 1) do:[:eachChildAfterTheOne \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7351	eachChildAfterTheOne shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7352	(eachChildAfterTheOne canTab
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7353	and:[eachChildAfterTheOne enabled]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7354	^ eachChildAfterTheOne
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7355	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7356
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7357	(viewInSubView := eachChildAfterTheOne focusNext) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7358	^ viewInSubView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7359	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7360	].
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7361	].
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7362	^ nil
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7363	!
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7364
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	7365	focusNextForWhich:aCondition
a17606a09947 focus handling ca parents: 4734 diff changeset	7366	"get next focus view to self
a17606a09947 focus handling ca parents: 4734 diff changeset	7367	Skip invisible, disabled or widgets the extent is to small"
a17606a09947 focus handling ca parents: 4734 diff changeset	7368
a17606a09947 focus handling ca parents: 4734 diff changeset	7369	\|viewInSubView\|
a17606a09947 focus handling ca parents: 4734 diff changeset	7370
a17606a09947 focus handling ca parents: 4734 diff changeset	7371	self subviewsInFocusOrder do:[:aSubView\|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7372	(aSubView canTab
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7373	and:[aSubView enabled
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7374	and:[aCondition value:aSubView]]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7375	^ aSubView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7376	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7377
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7378	(viewInSubView := aSubView focusNextForWhich:aCondition) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7379	^ viewInSubView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7380	]
4736 a17606a09947 focus handling ca parents: 4734 diff changeset	7381	].
a17606a09947 focus handling ca parents: 4734 diff changeset	7382	^ nil
a17606a09947 focus handling ca parents: 4734 diff changeset	7383	!
a17606a09947 focus handling ca parents: 4734 diff changeset	7384
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7385	focusPrevious
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7386	"get previous focus view to self
4446 49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	7387	Skip invisible & disabled widgets."
49376dd5489f dont want 'em ugly comments !!!!! Claus Gittinger <cg@exept.de> parents: 4433 diff changeset	7388
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7389	\|viewInSubView\|
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7390
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7391	shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7392	self subviewsInFocusOrder reverseDo:[:aSubView\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7393	aSubView shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7394	viewInSubView := aSubView focusPrevious.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7395
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7396	viewInSubView notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7397	^ viewInSubView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7398	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7399	(aSubView canTab and:[aSubView enabled]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7400	^ aSubView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7401	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7402	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7403	]
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7404	].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7405	^ nil
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7406	!
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7407
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7408	focusPreviousChildBefore:aChildView
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7409	"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	7410	Skip invisible or disabled widgets"
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7411
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7412	\|viewInSubView index subviewsInFocusOrder\|
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7413
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7414	shown ifFalse:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7415	subViews isNil ifTrue:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7416	subviewsInFocusOrder := self subviewsInFocusOrder.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7417
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7418	index := subviewsInFocusOrder identityIndexOf:aChildView.
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7419	index == 0 ifTrue:[ ^ nil ].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7420
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7421	subviewsInFocusOrder from:1 to:(index - 1) reverseDo:[:eachChildBeforeTheOne \|
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7422	eachChildBeforeTheOne shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7423	(viewInSubView := eachChildBeforeTheOne focusPrevious) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7424	^ viewInSubView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7425	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7426
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7427	(eachChildBeforeTheOne canTab and:[eachChildBeforeTheOne enabled]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7428	^ eachChildBeforeTheOne
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7429	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7430	].
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7431	].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7432	"/ the code below allows for a notebooks tab-list to be reached
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7433	(self canTab and:[self enabled]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7434	^ self
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7435	].
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7436
3155 660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7437	^ nil
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7438	!
660e71b1628b focusNext and focusPrevious implemented ca parents: 3152 diff changeset	7439
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7440	requestDoNotFocusOnPointerEnter
5924 50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7441	<resource: #obsolete>
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7442
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7443	self obsoleteMethodWarning:'use doNotRequestFocusOnPointerEnter'.
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7444	^ flagBits bitTest:FlagDoNotRequestFocusOnPointerEnter
5924 50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7445
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7446	"Modified: / 01-08-2012 / 17:05:56 / cg"
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7447	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7448
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7449	requestDoNotFocusOnPointerEnter:aBoolean
5924 50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7450	"very bad naming - wrong english"
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7451
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7452	<resource: #obsolete>
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7453
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7454	self obsoleteMethodWarning:'use doNotRequestFocusOnPointerEnter:'.
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7455	self doNotRequestFocusOnPointerEnter:aBoolean
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7456
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7457	"Modified (format): / 01-08-2012 / 17:05:42 / cg"
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7458	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7459
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7460	requestFocus
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7461	"request focus from my windowGroup;
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7462	typically, this is invoked when the mouse pointer enters a
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7463	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	7464	(it will be ignored, if an explicit focus-change is currently
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7465	active - i.e. if the user tabbed into a widget)"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7466
5924 50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7467	"/ Transcript show:'take: '; showCR:self.
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7468	windowGroup notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7469	^ windowGroup focusRequestFrom:self
5924 50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7470	].
50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7471	"/ Transcript show:'oops: '; showCR:self.
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7472	^ true
5664 4546b913860e comment/format in: #mapped Claus Gittinger <cg@exept.de> parents: 5663 diff changeset	7473
5665 f901e164a7ba changed: #requestFocus Claus Gittinger <cg@exept.de> parents: 5664 diff changeset	7474	"Modified: / 09-12-2010 / 14:33:40 / cg"
5924 50df967c642d #requestDoNotFocusOnPointerEnter Claus Gittinger <cg@exept.de> parents: 5913 diff changeset	7475	"Modified (format): / 01-08-2012 / 17:02:30 / cg"
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7476	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7477
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7478	requestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7479	"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	7480	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	7481	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7482	^ flagBits bitTest:FlagRequestFocusOnPointerEnter
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7483	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7484
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7485	requestFocusOnPointerEnter:aBoolean
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7486	"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	7487	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	7488	"
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7489
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7490	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7491	flagBits := flagBits bitOr:FlagRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7492	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7493	flagBits := flagBits bitClear:FlagRequestFocusOnPointerEnter
3590 8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7494	].
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7495	!
8e942a9ff4aa two more flags: request / doNotRequest focus on pointer enter Claus Gittinger <cg@exept.de> parents: 3586 diff changeset	7496
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7497	showFocus:explicit
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7498	"highlight myself somehow to tell user that I have the focus.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7499	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	7500	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	7501	Only change my border, if this is an explicit focusChange."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7502
6640 a0abbda92054 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6637 diff changeset	7503	\|delta clrId bd graphicsDevice\|
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7504
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7505	explicit ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7506	(self drawableId notNil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7507	and:[superView notNil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7508	and:[styleSheet notNil]]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7509	(styleSheet at:#'focus.showBorder' default:true) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7510	graphicsDevice := device.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7511
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7512	(graphicsDevice supportsWindowBorder:(bd := DefaultFocusBorderWidth)) ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7513	(graphicsDevice supportsWindowBorder:(bd := 1)) ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7514	bd := 0.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7515	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7516	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7517	delta := bd - self borderWidth.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7518	delta ~~ 0 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7519	(left == 0 or:[top == 0]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7520	graphicsDevice resizeWindow:self drawableId width:width-delta-delta height:height-delta-delta.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7521	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7522	graphicsDevice moveWindow:self drawableId x:left-delta y:top-delta.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7523	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7524	graphicsDevice setWindowBorderWidth:bd in:self drawableId.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7525	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7526
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7527	clrId := (DefaultFocusColor onDevice:graphicsDevice) colorId.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7528	clrId isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7529	clrId := graphicsDevice blackpixel
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7530	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7531	graphicsDevice setWindowBorderColor:clrId in:self drawableId.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7532	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7533	]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7534	]
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7535
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7536	"Modified: / 17.9.1998 / 15:08:34 / cg"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7537	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7538
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7539	showNoFocus:explicit
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7540	"undo the effect of showFocus.
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7541	Explicit tells if the focus came via focusStepping (i.e. tabbing)
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7542	or via the window manager (i.e. pointer entering).
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7543	Only change my border, if this is an explicit focusChange."
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7544
6640 a0abbda92054 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6637 diff changeset	7545	\|delta bd graphicsDevice\|
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7546
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7547	explicit ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7548	(self drawableId notNil and:[superView notNil]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7549	(styleSheet at:#'focus.showBorder' default:true) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7550	graphicsDevice := device.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7551
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7552	(graphicsDevice supportsWindowBorder:(bd := self borderWidth)) ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7553	(graphicsDevice supportsWindowBorder:(bd := 1)) ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7554	bd := 0.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7555	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7556	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7557	delta := DefaultFocusBorderWidth - bd.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7558	delta ~~ 0 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7559	graphicsDevice setWindowBorderWidth:bd in:self drawableId.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7560	graphicsDevice moveWindow:self drawableId x:left y:top.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7561	graphicsDevice resizeWindow:self drawableId width:width height:height.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7562	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7563	self setBorderColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7564	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7565	]
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7566	]
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7567
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7568	"Modified: / 17.9.1998 / 15:08:02 / cg"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7569	!
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7570
4734 cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7571	subviewsInFocusOrder
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7572	^ subViews ? #()
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7573	!
cad9cacb9cde focus handling changed: looking for subviewsInFocusOrder ca parents: 4720 diff changeset	7574
4425 7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	7575	takeFocus
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	7576	"Unconditionally take the focus from my windowGroup"
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	7577
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	7578	windowGroup notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7579	windowGroup focusView:self byTab:nil "/false.
4425 7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	7580	].
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	7581	!
7b2d529158e1 +takeFocus Claus Gittinger <cg@exept.de> parents: 4407 diff changeset	7582
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7583	takeFocusWhenMapped
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7584	^ flagBits bitTest:FlagTakeFocusWhenMapped
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7585
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7586	"Created: / 09-12-2010 / 10:34:30 / cg"
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7587	!
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7588
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7589	takeFocusWhenMapped:aBoolean
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7590	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7591	flagBits := flagBits bitOr:FlagTakeFocusWhenMapped
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7592	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7593	flagBits := flagBits bitClear:FlagTakeFocusWhenMapped
5663 e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7594	].
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7595
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7596	"Created: / 09-12-2010 / 10:34:11 / cg"
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7597	!
e72ce3f3ae68 focus handling when mapped Claus Gittinger <cg@exept.de> parents: 5662 diff changeset	7598
5667 c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7599	topViewWasMapped
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7600	"invoked when my topView is mapped"
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7601
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7602	self isKeyboardConsumer ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7603	self takeFocusWhenMapped ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7604	self requestFocus
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7605	]
5667 c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7606	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7607	subViews notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7608	subViews do:[:eachSubView \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7609	eachSubView topViewWasMapped
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7610	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7611	].
5667 c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7612	].
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7613
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7614	"Created: / 09-12-2010 / 18:11:51 / cg"
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7615	!
c065259f0d5c added: #topViewWasMapped Claus Gittinger <cg@exept.de> parents: 5665 diff changeset	7616
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7617	wantsFocusWithButtonPress
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	7618	"views which do not like to take the keyboard focus
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	7619	with buttonPress can do so by redefining this
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	7620	to return false
6127 e0dd6ee24d9e class: SimpleView Claus Gittinger <cg@exept.de> parents: 6126 diff changeset	7621	(actually: they should, because it is quite annoying
6649 88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	7622	in the UI, if a menuPanel or button takes my keyboard focus.
88f48ade4b42 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	7623	So we should consider making the default false here, so every
6127 e0dd6ee24d9e class: SimpleView Claus Gittinger <cg@exept.de> parents: 6126 diff changeset	7624	widget writer has to think twice...
e0dd6ee24d9e class: SimpleView Claus Gittinger <cg@exept.de> parents: 6126 diff changeset	7625	Can we do such a major change?)"
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	7626
5654 3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	7627	"/ (self class == SimpleView) ifTrue:[
3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	7628	"/ "/ a pure filler/geometric layout view
3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	7629	"/ ^ false
3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	7630	"/ ].
3581 72e09769d372 do not take focus when disabled Claus Gittinger <cg@exept.de> parents: 3559 diff changeset	7631	^ self enabled
5654 3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	7632
3039f635dcba changed: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 5639 diff changeset	7633	"Modified: / 17-11-2010 / 16:07:01 / cg"
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	7634	!
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	7635
7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	7636	wantsFocusWithPointerEnter
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7637	"views which like to take the keyboard focus
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	7638	when the pointer enters can do so by redefining this
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7639	to return true"
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7640
2741 7e85a327ce98 added extra query: #wantsFocusWithButtonPress Claus Gittinger <cg@exept.de> parents: 2733 diff changeset	7641	^ false
2506 221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7642	! !
221b75206a75 focus handling changed. Claus Gittinger <cg@exept.de> parents: 2496 diff changeset	7643
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7644	!SimpleView methodsFor:'grabbing'!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7645
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7646	forceUngrabKeyboard
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7647	"force a keyboard ungrab - even if was not the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7648
7554 f3bcd1141929 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7547 diff changeset	7649	device notNil ifTrue:[ gc device ungrabKeyboard ].
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7650	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7651
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7652	forceUngrabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7653	"force a pointer ungrab - even if was not the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7654
7554 f3bcd1141929 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7547 diff changeset	7655	device notNil ifTrue:[ device ungrabPointer ]
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7656	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7657
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7658	grabKeyboard
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	7659	"grab the keayboard - that is: report all keyboard events to myself,
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7660	even if the mouse moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7661	Returns true, if the grab was sucessfull (could fail, if some other
7586 53e42e99e908 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7570 diff changeset	7662	application has a grab - but that's very unlikely)."
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7663
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	7664	^ device grabKeyboardInView:self.
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7665	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7666
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7667	grabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7668	"grab the pointer - that is: report all motion events relative to
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7669	myself, even if moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7670	Returns true, if the grab was sucessfull (could fail, if some other
7586 53e42e99e908 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7570 diff changeset	7671	application has a grab - but that's very unlikely)."
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7672
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7673	^ self grabPointerWithCursor:nil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7674	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7675
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7676	grabPointerWithCursor:aCursorOrNil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7677	"grab the pointer - that is: report all motion events relative to
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7678	myself, even if moved out of myself.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7679	Show aCursor during the grab, if the cursor argument is not nil.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7680	Returns true, if the grab was sucessfull (could fail, if some other
7586 53e42e99e908 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7570 diff changeset	7681	application has a grab - but that's very unlikely)."
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7682
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7683
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7684	"/ (sensor := self sensor) notNil ifTrue:[
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7685	"/ "/ make certain all X events have been received
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7686	"/ device sync.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7687	"/ "/ now all events have been received.
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7688	"/ "/ now, flush all pointer events
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7689	"/ sensor flushMotionEventsFor:nil
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7690	"/ ].
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7691	aCursorOrNil notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7692	cursor := (aCursorOrNil onDevice:device).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7693	^ device grabPointerInView:self withCursor:cursor
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	7694	].
cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	7695	^ device grabPointerInView:self
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7696	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7697
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7698	ungrabKeyboard
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7699	"ungrab the keyboard - but only if I was the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7700
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7701	\|sensor\|
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7702
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	7703	device activeKeyboardGrab == self ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7704	(sensor := self sensor) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7705	"/ make certain all X events have been received
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7706	device sync.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7707	"/ now all events have been received.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7708	"/ now, flush all pointer events
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7709	sensor flushKeyboardFor:self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7710	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7711	device ungrabKeyboard.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	7712	].
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7713	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7714
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7715	ungrabPointer
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7716	"ungrab the pointer - but only if I was the grabber"
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7717
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7718	\|sensor\|
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7719
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	7720	device activePointerGrab == self ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7721	(sensor := self sensor) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7722	"/ make certain all X events have been received
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7723	device sync.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7724	"/ now all events have been received.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7725	"/ now, flush all pointer events
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7726	sensor flushMotionEventsFor:self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7727	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7728	device ungrabPointer.
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7729	]
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7730	! !
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	7731
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7732	!SimpleView methodsFor:'informing others of changes'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7733
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7734	contentsChanged
6090 d4a3672f917c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6087 diff changeset	7735	"this one is sent, whenever contents changes its size -
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7736	tell dependents about the change (i.e. scrollers)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7737
7397 11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	7738	dependents notNil ifTrue:[ self changed:#sizeOfContents ]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7739	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7740
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7741	noticeOfWindowClose
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7742	\|app\|
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7743
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7744	(app := self application) notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7745	app noticeOfWindowClose:self
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7746	].
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7747	!
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7748
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7749	noticeOfWindowOpen
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7750	\|app\|
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7751
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7752	(app := self application) notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7753	app noticeOfWindowOpen:self
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	7754	].
bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	7755	dependents notNil ifTrue:[ self changed:#opened ]
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7756	!
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7757
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7758	originChanged:delta
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7759	"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	7760	tell dependents (i.e. scrollers) about this"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7761
3510 f8d3abbf10d5 * empty log message * frank parents: 3485 diff changeset	7762	(delta = (0@0)) ifTrue:[^ self].
7397 11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	7763	dependents notNil ifTrue:[ self changed:#originOfContents with:delta ].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7764	"/ subViews notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7765	"/ subViews do:[:aSubView \|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7766	"/ aSubView pixelOrigin:((aSubView left @ aSubView top) - delta)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7767	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7768	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7769	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7770
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7771	originWillChange
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7772	"this one is sent, just before viewOrigin changes -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7773	gives subclasses a chance to catch scrolls easily
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7774	(for example to hide cursor before scroll)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7775
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7776	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7777	! !
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7778
3165 b9de858a61b5 cantab Claus Gittinger <cg@exept.de> parents: 3164 diff changeset	7779	!SimpleView methodsFor:'initialization & release'!
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	defaultControllerClass
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7782	^ nil "/ Controller
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
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	7785	defaultExtent
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	7786	"return the default extent of my instances."
b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	7787
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	7788	^ self class defaultExtent
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	7789
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	7790	"Created: 1.3.1996 / 19:20:46 / cg"
586 b91f10f632d5 commentary Claus Gittinger <cg@exept.de> parents: 584 diff changeset	7791	"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	7792	!
32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	7793
3662 faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	7794	defaultFont
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	7795	^ self class defaultFont
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	7796	!
faf50c1021e0 defaultFont Michael Beyl <mb@exept.de> parents: 3653 diff changeset	7797
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7798	destroy
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7799	"unmap & destroy - make me invisible, destroy subviews then
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7800	make me unknown to the device"
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7801
7094 349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	7802	self isBeingDestroyed:true.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7803	realized ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7804	self unmap.
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	7805	].
a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	7806	shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7807	shown := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7808	dependents notNil ifTrue:[ self changed:#visibility ].
5087 a66493cf7fdd sending of visibility-change fixed Claus Gittinger <cg@exept.de> parents: 5082 diff changeset	7809	].
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7810
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7811	"/ controller notNil ifTrue:[
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7812	"/ controller release.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7813	"/ controller := nil.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7814	"/ ].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7815
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7816	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7817	self destroySubViews.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7818	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7819	superView notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7820	superView removeSubView:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7821	superView := nil
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7822	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7823	super destroy.
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7824
7397 11bd586c3a73 #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7378 diff changeset	7825	dependents notNil ifTrue:[ self changed:#destroyed ]. "/ must do before release, which clears the dependents
3709 7f3f08a3607d flush in #unmap Claus Gittinger <cg@exept.de> parents: 3708 diff changeset	7826	self release.
7f3f08a3607d flush in #unmap Claus Gittinger <cg@exept.de> parents: 3708 diff changeset	7827
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7828	"/ superView isNil ifTrue:[
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7829	"/ device flush
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7830	"/ ].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7831
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7832	controller notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7833	controller release.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7834	controller := nil.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7835	].
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7836
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7837	windowGroup notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7838	windowGroup removeView:self.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7839	windowGroup := nil
3383 111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7840	].
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7841
111b54361247 postOpenedWith, windowEvent and noticeOfWindow-Whatever tm parents: 3382 diff changeset	7842	self noticeOfWindowClose.
2573 437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7843	!
437ff42d1ba3 category change Claus Gittinger <cg@exept.de> parents: 2560 diff changeset	7844
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7845	initEvents
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7846	"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	7847	view events"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7848
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7849	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7850	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7851
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7852	initStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7853	"this method sets up all style dependent things"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7854
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7855	self initStyleSheet.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7856
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7857	viewBackground := DefaultViewBackgroundColor.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7858
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7859	DefaultLightColor notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7860	lightColor := DefaultLightColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7861	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7862	device hasGrayscales ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7863	(viewBackground isImageOrForm and:[viewBackground colorMap isNil]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7864	lightColor := viewBackground averageColor lightened.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7865	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7866	lightColor := viewBackground lightened.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7867	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7868	DefaultLightColor := lightColor.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7869	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7870	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7871	this seems strange: on B&W screens, we create the light color
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7872	darker than normal viewBackground (White) -
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7873	to make the boundary of the view visible
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7874	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7875	lightColor := Color gray:50
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7876	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7877	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7878	DefaultShadowColor notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7879	shadowColor := DefaultShadowColor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7880	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7881	shadowColor := self blackColor.
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7882	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7883
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7884	((DefaultBorderWidth ? 1) ~= 0 and:[DefaultBorderColor notNil]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7885	self border:(SimpleBorder width:(DefaultBorderWidth ? 1) color:DefaultBorderColor)
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7886	].
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	7887
3669 7f3fb4967f53 dont call defaultFont twice Michael Beyl <mb@exept.de> parents: 3662 diff changeset	7888	"/ font := self defaultFont. -- already done in #initialize
747 5980e7ccac8e gray vs. grey Claus Gittinger <cg@exept.de> parents: 743 diff changeset	7889
749 c83c6d93760d grey vs. gray Claus Gittinger <cg@exept.de> parents: 747 diff changeset	7890	"Modified: 28.5.1996 / 21:13:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7891	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7892
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7893	initStyleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7894	"this method gets the styleSheet"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7895
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7896	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7897	when coming here the first time, we read the styleSheet
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7898	and keep the values in fast class variables
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7899	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7900	StyleSheet isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7901	DefaultStyle isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7902	"/ the very-very first time (no styleSheet yet)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7903	View setDefaultStyle.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7904	View defaultStyle:DefaultStyle.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7905	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7906	SimpleView updateAllStyleCaches
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7907	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7908
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7909	styleSheet := StyleSheet.
1005 03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	7910
03041f7fb340 init styleSheet (in case no startup file did it) Claus Gittinger <cg@exept.de> parents: 997 diff changeset	7911	"Modified: 25.7.1996 / 22:00:06 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7912	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7913
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7914	initialize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7915	"initialize all state of the view - usually redefined in subclasses,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7916	but always doing a 'super initialize'. Each class should setup its
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7917	locals - and not forget the others.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7918	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	7919	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	7920	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	7921	(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	7922	leave the state and contents as-is)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7923
7845 bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7924	<modifier: #super> "must be called if redefined"
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7925
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7926	\|ext myClass controllerClass\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7927
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	7928	flagBits := flagBits ? 0.
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	7929
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7930	super initialize.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7931
6259 f31f7e5e6531 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6249 diff changeset	7932	self basicFont:self defaultFont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7933
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7934	shown := realized := false.
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	7935	"/ explicitExtent := false.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7936
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7937	"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	7938	initialize methods"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7939
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7940	myClass := self class.
5290 5c7a67abec31 name setup lazy Claus Gittinger <cg@exept.de> parents: 5289 diff changeset	7941	"/ name := myClass name "asString" asLowercaseFirst. - now lazy
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7942	resources := myClass classResources.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7943
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	7944	level := margin := 0.
5414 6edcb212d4a0 border handling Claus Gittinger <cg@exept.de> parents: 5411 diff changeset	7945	self borderWidth:0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7946
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7947	self initStyle.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7948
483 32537786bca6 change defaultExtent protocol (ask inst first, then class) Claus Gittinger <cg@exept.de> parents: 472 diff changeset	7949	ext := self defaultExtent.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7950	left := top := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7951	width := ext x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7952	height := ext y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7953
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7954	"/ not needed
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7955	"/ self originChangedFlag:false extentChangedFlag:false cornerChangedFlag:false.
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7956
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7957	name isNil ifTrue:[
7845 bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7958	name := self class name.
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	7959	].
2084 e997f6ea54c2 also pass down #larger to sizeCanged: method. Claus Gittinger <cg@exept.de> parents: 2061 diff changeset	7960	bitGravity := #NorthWest. "/ nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7961	viewGravity := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7962
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7963	controllerClass := self defaultControllerClass.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7964	controllerClass notNil ifTrue:[
7845 bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7965	controller := controllerClass new.
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7966	controller view:self.
3967 ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7967	].
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7968
ed1e413b0ded invoke #initializeMiddleButtonMenu from #initialize; Claus Gittinger <cg@exept.de> parents: 3947 diff changeset	7969	self initializeMiddleButtonMenu.
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	7970
7845 bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	7971	"Modified: / 08-02-2017 / 00:26:52 / cg"
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	7972	"Modified: / 18-03-2017 / 00:20:40 / stefan"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7973	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7974
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7975	initializeMiddleButtonMenu
3968 4bd1b2b090f9 comment Claus Gittinger <cg@exept.de> parents: 3967 diff changeset	7976	"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	7977	usually redefined in subclasses; default here is no menu.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7978	Notice, that static middleButtonmenus are a historic thing in ST/X;
3968 4bd1b2b090f9 comment Claus Gittinger <cg@exept.de> parents: 3967 diff changeset	7979	you may prefer to create the menu dynamically."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7980
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7981	^ self
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7982	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7983
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7984	prepareForReinit
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7985	super prepareForReinit.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7986	windowGroup notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	7987	windowGroup reinitialize
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7988	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7989	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7990
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7991	reinitStyle
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7992	"this method is called for a style change"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	7993
7304 3d6e5fa20cb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	7994	"Kludge: remember the old level.
3d6e5fa20cb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	7995	level may be set from the WindowSpec and not by the Stylesheet!!
3d6e5fa20cb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	7996	Systembrowser will look funny when I am called by Winworkstation>>#systemColorChange."
3d6e5fa20cb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	7997
3d6e5fa20cb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	7998	\|oldLevel oldBorder\|
3d6e5fa20cb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	7999
3d6e5fa20cb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	8000	oldLevel := self level.
3d6e5fa20cb0 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7295 diff changeset	8001	oldBorder := self border.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8002	self initStyle.
6341 088a633e67e6 Access graphicsDevice via method send instead of instVar access Stefan Vogel <sv@exept.de> parents: 6336 diff changeset	8003	(self drawableId notNil and:[self gcId notNil]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8004	"force a change"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8005	self border:oldBorder.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8006	self level:oldLevel.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8007	self viewBackground:self viewBackground.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8008	self clearView.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8009	self invalidate.
2357 29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	8010	].
29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	8011
29a966362aad clear and invalidate in reinitStyle. Claus Gittinger <cg@exept.de> parents: 2355 diff changeset	8012	"Modified: / 18.9.1998 / 21:15:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8013	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8014
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8015	reinitialize
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	8016	"this is called right after snapIn"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8017
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	8018	\|myController sv\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8019
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8020	"if I have already been reinited - return"
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	8021	self drawableId notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8022	^ self
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8023	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8024
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8025	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8026	superView must be there, first
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8027	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8028	superView notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8029	(sv := superView view) id isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8030	sv reinitialize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8031	]
2452 0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	8032	].
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	8033
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	8034	"reinit cursor"
0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	8035	self initCursor.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8036
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8037	myController := controller.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8038	controller := nil.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8039	self recreate.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8040
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8041	"if I was mapped, do it again"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8042	realized ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8043	"only remap if I have a superview - otherwise, I might be
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8044	a hidden iconView or menu ..."
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8045	superView notNil ifTrue:[
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8046	"/ shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8047	device
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8048	moveResizeWindow:self drawableId x:left y:top width:width height:height;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8049	mapWindow:self drawableId
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	8050	"/ mapView:self id:self drawableId iconified:false
4907 9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	8051	"/ atX:left y:top width:width height:height
9002ab7fb33f remapping views Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	8052	"/ minExtent:(self minExtent) maxExtent:(self maxExtent)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8053	"/ ].
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8054	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8055	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8056
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8057	"restore controller"
2452 0c63e21efd57 (re)initCursor in reinitialize (i.e. after snapIn) Claus Gittinger <cg@exept.de> parents: 2451 diff changeset	8058	controller := myController.
795 a57f5f65d0a7 checkin from browser Claus Gittinger <cg@exept.de> parents: 794 diff changeset	8059
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	8060	"Modified: / 6.5.1999 / 13:11:07 / cg"
4372 30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8061	!
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8062
6138 6f2369e5755b class: SimpleView Stefan Vogel <sv@exept.de> parents: 6136 diff changeset	8063	release
6f2369e5755b class: SimpleView Stefan Vogel <sv@exept.de> parents: 6136 diff changeset	8064	"remove all dependencies from the receiver"
6f2369e5755b class: SimpleView Stefan Vogel <sv@exept.de> parents: 6136 diff changeset	8065
6f2369e5755b class: SimpleView Stefan Vogel <sv@exept.de> parents: 6136 diff changeset	8066	visibilityChannel notNil ifTrue:[
7845 bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	8067	visibilityChannel retractInterestsFor:self.
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	8068	visibilityChannel removeDependent:self. visibilityChannel := nil
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	8069	].
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	8070	super release
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	8071
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	8072	"Created: / 11-06-1997 / 13:11:53 / cg"
bcf936bc9e2b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	8073	"Modified: / 08-02-2017 / 00:39:38 / cg"
6138 6f2369e5755b class: SimpleView Stefan Vogel <sv@exept.de> parents: 6136 diff changeset	8074	!
6f2369e5755b class: SimpleView Stefan Vogel <sv@exept.de> parents: 6136 diff changeset	8075
4372 30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8076	restarted
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8077	"sent by my windowGroup, when restarted from an image.
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8078	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	8079	required to reset some state after an image-restart.
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8080
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8081	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	8082	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	8083	in SimpleView"
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8084
30c22dddafcf Moved up #restarted to SimpleView Stefan Vogel <sv@exept.de> parents: 4352 diff changeset	8085	^ self
5713 20b8609cec16 added: #subViewsHaveBeenReparented ca parents: 5711 diff changeset	8086	!
20b8609cec16 added: #subViewsHaveBeenReparented ca parents: 5711 diff changeset	8087
20b8609cec16 added: #subViewsHaveBeenReparented ca parents: 5711 diff changeset	8088	subViewsHaveBeenReparented
20b8609cec16 added: #subViewsHaveBeenReparented ca parents: 5711 diff changeset	8089	subViews := nil
135 cf8e46015072 . claus parents: diff changeset	8090	! !
cf8e46015072 . claus parents: diff changeset	8091
7081 4778f0077b54 #FEATURE Claus Gittinger <cg@exept.de> parents: 7023 diff changeset	8092
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8093	!SimpleView methodsFor:'keyboard control'!
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8094
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8095	defineShortcutAndTranslateLabelStringFrom:aString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8096	\|i\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8097
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8098	aString isString ifFalse:[ ^ aString].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8099
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8100	(aString includes:$&) ifFalse:[ ^ aString].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8101	i := self shortcutAndTranslatedStringFrom:aString.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8102	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	8103	^ i at:2.
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8104	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8105
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8106	mnemonicKey
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	8107	"get the mnemonic key or nil if undefined"
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8108
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8109	^ self objectAttributeAt:#mnemonicKey
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8110	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8111
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8112	mnemonicKey:aSymbolOrNil
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	8113	"set or clear the mnemonic key"
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8114
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8115	aSymbolOrNil isSymbol ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8116	self objectAttributeAt:#mnemonicKey put:aSymbolOrNil
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8117	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8118	self removeObjectAttribute:#mnemonicKey
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8119	].
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8120	!
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8121
312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8122	mnemonicViewNext:aKeyEvent
5832 a77aa388f490 changed: #mnemonicViewNext: Claus Gittinger <cg@exept.de> parents: 5831 diff changeset	8123	"a mnemonicKey event as forwarded from the keyboardProcessor - if there
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	8124	is the mnemonic-key defined for a subView return the view otherwise nil."
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8125
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8126	\|key rawKey mnemonic view\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8127
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	8128	key := aKeyEvent key.
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8129	rawKey := aKeyEvent rawKey.
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	8130	(shown and:[ subViews notNil ]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8131	subViews do:[:aSubView \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8132	aSubView shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8133	(aSubView enabled
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8134	and:[ (mnemonic := aSubView mnemonicKey) notNil
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8135	and:[ (mnemonic == rawKey or:[ mnemonic == key ]) ]])
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8136	ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8137	^ aSubView
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8138	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8139	(view := aSubView mnemonicViewNext:aKeyEvent) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8140	^ view
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8141	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8142	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8143	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8144	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8145	^ nil
5832 a77aa388f490 changed: #mnemonicViewNext: Claus Gittinger <cg@exept.de> parents: 5831 diff changeset	8146
a77aa388f490 changed: #mnemonicViewNext: Claus Gittinger <cg@exept.de> parents: 5831 diff changeset	8147	"Modified (comment): / 06-10-2011 / 16:15:44 / cg"
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8148	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8149
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8150	performShortcutAction
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8151	"perform my shortcutKey action.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8152	"
3374 3313d1faa927 compilable Claus Gittinger <cg@exept.de> parents: 3371 diff changeset	8153	"/ intentionally left blank here
3313d1faa927 compilable Claus Gittinger <cg@exept.de> parents: 3371 diff changeset	8154	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8155
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8156	processShortcut:aKeyEvent
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8157	"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	8158	shortcut-key defined process the shortcut and return true otherwise false."
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8159
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8160	\|key\|
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8161
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8162	shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8163	self enabled ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8164	(key := self shortcutKey) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8165	(key == aKeyEvent key or:[ key == aKeyEvent rawKey ]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8166	self requestFocus.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8167	(controller ? self) performShortcutAction.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8168	^ true
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8169	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8170	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8171	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8172	subViews notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8173	subViews do:[:aSubView \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8174	(aSubView processShortcut:aKeyEvent) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8175	^ true
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8176	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8177	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8178	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8179	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8180	^ false
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8181	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8182
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8183	shortcutAndTranslatedStringFrom:aString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8184	"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	8185	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	8186	following character"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8187
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	8188	\|xLatedString c n s pos shortcutCharacter shortcut\|
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8189
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8190	xLatedString := '' writeStream.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8191	s := aString readStream.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8192
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8193	[s atEnd] whileFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8194	c := s next.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8195	c == $& ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8196	n := s peek.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8197	(n notNil and:[n isLetter]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8198	c := s next.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8199	pos := xLatedString size + 1.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8200	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8201	n == $& ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8202	s next.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8203	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8204	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8205	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8206	c notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8207	xLatedString nextPut:c
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8208	]
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8209	].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8210
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8211	xLatedString := xLatedString contents.
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8212	pos notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8213	shortcutCharacter := xLatedString at:pos ifAbsent:nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8214
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8215	xLatedString isText ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8216	xLatedString := xLatedString asText
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8217	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8218	xLatedString emphasisAt:pos add:#underline.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8219
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8220	shortcut := ('Cmd' , shortcutCharacter asLowercase) asSymbol.
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8221	].
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8222	^ Array with:shortcut with:xLatedString
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8223
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8224	"
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8225	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'hello' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8226	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8227	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&&llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8228	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he& llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8229	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'he&123llo' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8230	Transcript showCR:(self basicNew shortcutAndTranslatedStringFrom:'hello &' ) last
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8231	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	8232	"
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8233	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8234
40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8235	shortcutKey
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	8236	"get the shortcut key"
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8237
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8238	^ self objectAttributeAt:#shortcutKey
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8239	!
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8240
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8241	shortcutKey:aSymbolOrNil
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	8242	"set or clear the shortcut key"
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	8243
4492 17759f9ff27d * empty log message * Claus Gittinger <cg@exept.de> parents: 4484 diff changeset	8244	aSymbolOrNil notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8245	self objectAttributeAt:#shortcutKey put:aSymbolOrNil
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8246	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8247	self removeObjectAttribute:#shortcutKey
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8248	].
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	8249	! !
3371 40eea3d401e5 mnemonic-key and shortcut-key support; ca parents: 3368 diff changeset	8250
7418 9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8251	!SimpleView methodsFor:'menu & menu actions'!
9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8252
9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8253	fontLargerOrSmaller:largerBoolean
7419 b594081e3710 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7418 diff changeset	8254	\|font oldSize newFont\|
b594081e3710 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7418 diff changeset	8255
b594081e3710 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7418 diff changeset	8256	font := gc font.
b594081e3710 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7418 diff changeset	8257	oldSize := font size.
7418 9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8258	newFont := font asSize:(largerBoolean
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8259	ifTrue:[(oldSize + 1) min:100]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8260	ifFalse:[(oldSize-1) max:4]).
7418 9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8261	self font:newFont.
9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8262
9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8263	"Modified: / 27-02-1996 / 00:53:51 / cg"
9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8264	"Created: / 10-03-2012 / 09:38:32 / cg"
9dd8621ec788 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7417 diff changeset	8265	! !
7417 a7e3b6a9aa63 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 7416 diff changeset	8266
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8267	!SimpleView methodsFor:'menu handling'!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8268
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8269	activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8270	"activate my menu.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8271	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	8272	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	8273	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	8274	Otherwise, the follwing steps are performed:
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8275
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8276	- ask the receiver for the menu (via #yellowButtonMenu)
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8277	- ask the receiver for the menuPerformer.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8278	- startUp the menu - it is supposed to return an actionSelector
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8279	- if the menuPerformer responds to the selector,
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8280	send it to the performer;
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8281	otherwise send it to the view (the receiver)
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8282	This is funny, it allows additional menuItems to be added
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8283	AND still get the view's copy/cut/paste functionality.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8284	Without this, you had to redefine and forward all of those
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8285	messages in the performer."
2489 f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	8286
f7ce16896fa1 process exposes when menu closes. Claus Gittinger <cg@exept.de> parents: 2465 diff changeset	8287	\|menu menuPerformer actionSelector prevReceiver wg\|
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8288
5008 468d1a62a90f middleButtonMenu and keyCommands no longer held in instvars but in moreAttributes. Claus Gittinger <cg@exept.de> parents: 5004 diff changeset	8289	self middleButtonMenu isNil ifTrue:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8290	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8291	try ST-80 style menus first:
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8292	if there is a model, and a menuMessage is defined,
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8293	ask model for the menu and launch that if non-nil.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8294	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8295	menu := self yellowButtonMenu.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8296	menu notNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8297	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8298	got one, launch the menu. It is supposed
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8299	to return an actionSelector.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8300	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8301	menuPerformer := self menuPerformer value.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8302
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8303	"/ could be a spec ...
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8304	menu isArray ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8305	menu := menu decodeAsLiteralArray.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8306	menu receiver:menuPerformer.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8307	menu findGuiResourcesIn:(self menuHolder).
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8308	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8309	(menu respondsTo:#receiver) ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8310	menuPerformer := menu receiver ? menuPerformer.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8311	].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8312	].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8313
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8314	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8315	a temporary kludge:
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8316	pass myself as receiver, the menuPerformer as performer;
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8317	the menu will send its messages to either the
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8318	menuPerformer or me (its receiver).
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8319	This allows for the ST-80 behavior, where some messages
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8320	go to the model, others to the view
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8321	(copy/cut/paste).
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8322	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8323	(prevReceiver := menu receiver) isNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8324	"/ kludge for oldStyle menus (MenuView/PopUpMenu)
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8325	"/ not req'd for real Menus
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8326	"/ (menu isKindOf:Menu) ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8327	(menu respondsTo:#menuPerformer:) ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8328	menu receiver:self. "/ really ?
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8329	menu menuPerformer:menuPerformer.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8330	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8331	"/ ] ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8332	"/ new style menu
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8333	menu receiver:menuPerformer.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8334	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8335	].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8336
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8337	"/
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8338	"/ startup the menu - this returns a selector
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8339	"/
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8340	actionSelector := self startUpMenu:menu.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8341
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8342	"/ before doing anything else, redraw expose area from
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8343	"/ the menu (in case the action changes my state)
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8344	(wg := self windowGroup) notNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8345	wg processExposeEvents.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8346	].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8347
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8348	(actionSelector notNil and:[actionSelector isSymbol]) ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8349	self dispatchMenuSelection:actionSelector to: menuPerformer.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8350	].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8351
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8352	menu receiver:prevReceiver.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8353
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8354	^ self
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	8355	].
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8356	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8357
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8358	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8359	"/ old style static menu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8360	"/
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8361	super activateMenu
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8362
2127 c6d63c47bf07 checkin from browser Claus Gittinger <cg@exept.de> parents: 2103 diff changeset	8363	"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	8364	"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	8365	!
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8366
3241 e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	8367	dispatchMenuSelection:menuSelection to:aMenuPerformerOrNil
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8368	"dispatch a menu message.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8369	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	8370
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8371	\|actionSelector actionArg1 actionArg2 app menuPerformer\|
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8372
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8373	actionSelector := menuSelection.
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8374
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8375	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8376	mhmh - kludge for selectors with argument
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8377	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8378	(menuSelection isMemberOf:Array) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8379	actionArg1 := menuSelection at:2.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8380	actionSelector := menuSelection at:1.
3241 e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	8381	].
e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	8382
e5c9791522af menuPerformer dispatching Claus Gittinger <cg@exept.de> parents: 3202 diff changeset	8383	menuPerformer := aMenuPerformerOrNil ? self menuPerformer.
1839 7da27042198c checkin from browser Claus Gittinger <cg@exept.de> parents: 1837 diff changeset	8384
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8385	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8386	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	8387	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	8388	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	8389	"
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8390	actionSelector isSymbol ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8391	(menuPerformer respondsTo:actionSelector) ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8392	((app := self application) respondsTo:actionSelector) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8393	menuPerformer := app.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8394	actionArg1 := self model.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8395	actionArg2 := self controller.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8396	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8397	(self respondsTo:actionSelector) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8398	menuPerformer := self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8399	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8400	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8401	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8402	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	8403	].
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8404
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8405	"Created: / 20.6.1997 / 11:47:42 / cg"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	8406	"Modified: / 1.11.1997 / 13:45:23 / cg"
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8407	!
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8408
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8409	menuFromSpec:aMenuOrMenuSpec
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8410	"create a menu for the receiver from a spec"
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8411
3559 bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	8412	\|spec\|
bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	8413
bbdf48b9fb5b * empty log message * Claus Gittinger <cg@exept.de> parents: 3558 diff changeset	8414	aMenuOrMenuSpec isNil ifTrue:[^ nil].
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8415
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8416	aMenuOrMenuSpec isArray ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8417	spec := aMenuOrMenuSpec decodeAsLiteralArray.
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8418	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8419	spec := aMenuOrMenuSpec.
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8420	].
3556 eaea177415b0 findGuiResources... now sets the receiver, if not yet set Claus Gittinger <cg@exept.de> parents: 3540 diff changeset	8421	"/ spec receiver:self. -- now done in findGuiResources ...
3533 fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8422	spec findGuiResourcesIn:self.
fb0eddc93c1e checkin from browser Claus Gittinger <cg@exept.de> parents: 3522 diff changeset	8423	^ spec.
3752 c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	8424	!
c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	8425
c78ca44247d5 can now specify if menu action is to be performed by ca parents: 3745 diff changeset	8426	startUpMenu:aMenu
3753 e593d6729f4e can now specify if menu action is to be performed by ca parents: 3752 diff changeset	8427	^ aMenu startUpFor:self
1759 f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8428	! !
f4cd63a4d736 extracted menu dispatch code into sep. method. Claus Gittinger <cg@exept.de> parents: 1756 diff changeset	8429
6559 87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8430	!SimpleView methodsFor:'native widget support'!
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8431
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8432	nativeWindowType
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8433	"return a symbol describing my native window type - here, nil is returned
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8434	(may be used internally by the device as a native window creation hint,
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8435	iff native windows are enabled AND the device supports it)"
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8436
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8437	^ nil
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8438	! !
87057258791c class: SimpleView Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	8439
140 0db355079dc4 . claus parents: 138 diff changeset	8440	!SimpleView methodsFor:'private'!
0db355079dc4 . claus parents: 138 diff changeset	8441
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	8442	componentsContainingX:x y:y do:aBlock
4609 0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	8443	(x isNil or:[y isNil]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8444	"/ delegated
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8445	^ self
4609 0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	8446	].
0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	8447
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	8448	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8449	components reverseDo:[:aComponent \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8450	\|thisFrame\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8451
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8452	thisFrame := aComponent bounds.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8453	(thisFrame containsPointX:x y:y) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8454	"/ prepare for masked/non-rectangular components ...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8455	(aComponent perform:#containsPointX:y: with:x with:y ifNotUnderstood:true)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8456	ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8457	aBlock value:aComponent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8458	value:x - thisFrame left
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8459	value:y - thisFrame top.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8460	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8461	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8462	]
4609 0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	8463	].
0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	8464
0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	8465	"Created: / 08-05-1996 / 23:40:59 / cg"
0fb6751514cf care for delegated events when detecting a component fm parents: 4579 diff changeset	8466	"Modified: / 13-09-2006 / 18:55:30 / User"
659 72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	8467	!
72c93421a2a3 fixed component-events Claus Gittinger <cg@exept.de> parents: 654 diff changeset	8468
140 0db355079dc4 . claus parents: 138 diff changeset	8469	computeInnerClip
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	8470	"compute, but do not set the inside clip-area, in device coordinates"
140 0db355079dc4 . claus parents: 138 diff changeset	8471
0db355079dc4 . claus parents: 138 diff changeset	8472	\|m2 nX nY nW nH\|
0db355079dc4 . claus parents: 138 diff changeset	8473
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	8474	margin isNil ifTrue:[margin := 0].
140 0db355079dc4 . claus parents: 138 diff changeset	8475	(margin ~~ 0) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8476	m2 := margin + margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8477	nX := nY := margin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8478	nW := width - m2.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8479	nH := height - m2.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8480	"/ transformation notNil ifTrue:[
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8481	"/ nX := transformation applyInverseToX:nX.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8482	"/ nY := transformation applyInverseToY:nY.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8483	"/ nW := transformation applyInverseScaleX:nW.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8484	"/ nH := transformation applyInverseScaleY:nH.
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8485	"/ ].
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8486	innerClipRect := Rectangle
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8487	left:nX
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8488	top:nY
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8489	width:nW
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8490	height:nH
140 0db355079dc4 . claus parents: 138 diff changeset	8491	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8492	"no clipping"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8493	innerClipRect := nil
140 0db355079dc4 . claus parents: 138 diff changeset	8494	]
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8495
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	8496	"Modified: / 22.5.1999 / 16:50:58 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	8497	!
0db355079dc4 . claus parents: 138 diff changeset	8498
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8499	cornerFromRelativeCorner
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8500	"compute & return pixel corner from relativeCorner"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8501
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8502	^ self cornerFromRelativeCorner:relativeCorner
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
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8505	cornerFromRelativeCorner:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8506	"compute & return pixel corner from a relativeCorner, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8507
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8508	\|p r b bw\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8509
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8510	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8511
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	8512	bw := self borderWidth ? 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8513	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8514	bw == 0 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8515	^ p
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8516	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8517	^ (p x - bw) @ (p y - bw)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8518	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8519	r := (insets at:3) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8520	b := (insets at:4) + bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8521
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8522	"/ r := b := bw.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8523	"/ rightInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8524	"/ r := rightInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8525	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8526	"/ bottomInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8527	"/ b := bottomInset + bw
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8528	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8529	((r ~~ 0) or:[b ~~ 0]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8530	^ (p x - r) @ (p y - b)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8531	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8532	^ p
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	8533
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	8534	"Modified: / 1.10.1998 / 13:21:33 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8535	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8536
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	8537	detectViewAt:aPoint
3540 5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	8538	"find the subView which contains aPoint - invisible components are ignored.
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	8539	This is almost the same as #componentContainingX:y: (if that existed) "
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	8540
7982 c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8541	^ self detectViewAt:aPoint ignoreInvisible:true
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8542
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8543	"Modified: / 15-03-2017 / 21:10:06 / stefan"
3540 5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	8544	!
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	8545
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	8546	detectViewAt:aPoint ignoreInvisible:ignoreInvisible
5a043181bded parametrized #detectViewAt: Claus Gittinger <cg@exept.de> parents: 3533 diff changeset	8547	"find the subView which contains aPoint - invisible components are ignored if
7982 c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8548	the ignoreInvisible argument is true.
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	8549	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	8550
7982 c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8551	\|subViews x y\|
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8552
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8553	subViews := self subViews.
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8554	subViews notNil ifTrue:[
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8555	x := aPoint x.
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8556	y := aPoint y.
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8557	subViews do:[:v\|
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8558	\|p\|
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8559
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8560	(ignoreInvisible not or:[v shown]) ifTrue:[
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8561	((x between:v left and:v right) and:[y between:v top and:v bottom]) ifTrue:[
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8562	"/ found a subview - the point is there
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8563	p := device translatePoint:aPoint fromView:self toView:v.
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8564	^ v detectViewAt:p ignoreInvisible:ignoreInvisible.
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8565	]
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8566	]
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8567	]
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	8568	].
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	8569	"/ no subview - the point is here
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	8570	^ self
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	8571
7982 c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8572	"Modified: / 10-10-2001 / 13:45:26 / cg"
c50372238315 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7974 diff changeset	8573	"Modified: / 15-03-2017 / 21:10:40 / stefan"
3518 983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	8574	!
983e7730a905 use new translatePoint:fromView:toView: Claus Gittinger <cg@exept.de> parents: 3516 diff changeset	8575
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	8576	explicitExtent:aBoolean
5060 01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	8577	"set the exeplicit extent flag to aBoolean."
01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	8578
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	8579	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8580	flagBits := flagBits bitOr:FlagHasExplicitExtent
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	8581	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8582	flagBits := flagBits bitClear:FlagHasExplicitExtent
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	8583	].
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	8584	!
5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	8585
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8586	extentFromRelativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8587	"compute & return pixel extent from relativeExtent"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8588
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8589	^ self extentFromRelativeExtent:relativeExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8590	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8591
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8592	extentFromRelativeExtent:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8593	"compute & return pixel extent from relativeExtent, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8594
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	8595	\|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	8596
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	8597	bw := self borderWidth ? 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8598
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8599	superView isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8600	inRect := 0@0 extent:device extent
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8601	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8602	inRect := superView viewRectangle.
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	8603	].
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	8604
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	8605	bw2 := bw * 2.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8606
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8607	rel := aPoint x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8608	rel isInteger ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8609	newX := (rel * (inRect width + bw2)) asInteger + inRect left.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8610	(bw ~~ 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8611	newX := newX - bw
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8612	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8613	] ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8614	newX := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8615	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8616
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8617	rel := aPoint y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8618	rel isInteger ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8619	newY := (rel * (inRect height + bw2)) asInteger + inRect top.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8620	(bw ~~ 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8621	newY := newY - bw
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8622	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8623	] ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8624	newY := rel
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8625	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8626
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8627	insets notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8628	i := insets at:1. "top"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8629	(i ~~ 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8630	newX := newX - i
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8631	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8632	i := insets at:3. "left"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8633	(i ~~ 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8634	newX := newX - i
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8635	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8636	i := insets at:2. "right"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8637	(i ~~ 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8638	newY := newY - i
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8639	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8640	i := insets at:4. "bottom"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8641	(i ~~ 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8642	newY := newY - i
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8643	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8644	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8645	^ newX @ newY
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8646	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8647
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8648	originFromRelativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8649	"compute & return pixel origin from relativeOrigin"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8650
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8651	^ self originFromRelativeOrigin:relativeOrigin
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8652	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8653
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8654	originFromRelativeOrigin:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8655	"compute & return pixel origin from relativeOrigin, aPoint"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8656
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8657	\|p l t\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8658
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8659	p := self pointFromRelative:aPoint.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8660
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8661	insets isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8662	^ p
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8663	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8664	l := insets at:1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8665	t := insets at:2.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8666
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8667	"/ l := t := 0.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8668	"/ leftInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8669	"/ l := leftInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8670	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8671	"/ topInset notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8672	"/ t := topInset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8673	"/ ].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8674	((l ~~ 0) or:[t ~~ 0]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8675	^ (p x + l) @ (p y + t)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8676	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8677	^ p
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8678	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8679
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8680	pixelCorner:corner
6853 541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	8681	"set the view's corner in pixels"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8682
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8683	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8684
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8685	w := corner x - left + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8686	h := corner y - top + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8687	self pixelOrigin:(left @ top) extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8688
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8689	"Modified: 31.8.1995 / 18:20:22 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8690	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8691
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8692	pixelExtent:extent
6853 541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	8693	"set the view's extent in pixels"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8694
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8695	\|org\|
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8696
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8697	(left notNil and:[top notNil]) ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8698	org := left @ top.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8699	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8700	self pixelOrigin:org extent:extent.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8701
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8702	"Modified: / 18-03-2017 / 00:24:50 / stefan"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8703	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8704
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	8705	pixelOrigin
6853 541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	8706	"return the view's origin in pixels. For subviews. the origin is relative
541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	8707	to the superview's top-left. For topViews, it's the screen origin."
1363 3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	8708
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	8709	^ self computeOrigin
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	8710	!
3a02d26cbc35 added #enabled (isEnabled) queries. ca parents: 1356 diff changeset	8711
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8712	pixelOrigin:origin
6853 541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	8713	"set the view's origin in pixels. For subviews. the origin is relative
541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	8714	to the superview's top-left. For topViews, it's the screen origin."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8715
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8716	\|newLeft newTop\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8717
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8718	newLeft := origin x.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8719	newTop := origin y.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8720	((newTop ~~ top) or:[newLeft ~~ left]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8721	top := newTop.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8722	left := newLeft.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8723
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8724	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8725	if the receiver is visible, or is a topView, perform the
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8726	operation right away - otherwise, simply remember that the
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8727	origin has changed - will tell the display once we get realized
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8728	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8729	"/ (shown
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8730	"/ or:[superView isNil and:[drawableId notNil]]) ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8731
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8732	"/ no, have to do it if drawableId is there
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8733	"/ (otherwise, we could not move unmapped views around ...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8734	"/
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8735	self drawableId notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8736	device moveWindow:self drawableId x:left y:top
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8737	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8738	self originChangedFlag:true
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8739	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8740	]
5679 455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	8741
455385b07655 added: #isReallyShown Claus Gittinger <cg@exept.de> parents: 5669 diff changeset	8742	"Modified: / 21-01-2011 / 13:59:08 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8743	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8744
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8745	pixelOrigin:origin corner:corner
6853 541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	8746	"set the view's origin and corner in pixels"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8747
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8748	\|w h\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8749
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8750	w := corner x - origin x + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8751	h := corner y - origin y + 1.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8752	self pixelOrigin:origin extent:(w @ h)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8753
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8754	"Modified: 31.8.1995 / 18:24:16 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8755	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	8756
140 0db355079dc4 . claus parents: 138 diff changeset	8757	pixelOrigin:origin extent:extent
6853 541c6d924a41 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6851 diff changeset	8758	"set the view's origin and extent in pixels"
140 0db355079dc4 . claus parents: 138 diff changeset	8759
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8760	\|newLeft newTop newWidth newHeight how
140 0db355079dc4 . claus parents: 138 diff changeset	8761	mustRedrawBottomEdge mustRedrawRightEdge mustRepaintBottom
3340 f810ebc6d836 preserve current paint when drawing edges martin parents: 3327 diff changeset	8762	mustRepaintRight sameOrigin oldWidth oldHeight oldPaint\|
140 0db355079dc4 . claus parents: 138 diff changeset	8763
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8764	origin isNil ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8765	sameOrigin := true.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8766	] ifFalse:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8767	newLeft := origin x.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8768	newTop := origin y.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8769	sameOrigin := (newTop == top) and:[newLeft == left].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8770	].
140 0db355079dc4 . claus parents: 138 diff changeset	8771
0db355079dc4 . claus parents: 138 diff changeset	8772	newWidth := extent x.
0db355079dc4 . claus parents: 138 diff changeset	8773	newHeight := extent y.
0db355079dc4 . claus parents: 138 diff changeset	8774
0db355079dc4 . claus parents: 138 diff changeset	8775	"
0db355079dc4 . claus parents: 138 diff changeset	8776	X complains badly if you try to create/resize a view with
5436 59effbe755f7 changed: Claus Gittinger <cg@exept.de> parents: 5428 diff changeset	8777	a dimension <= 0 ... (although I think that 0 makes sense ...)
140 0db355079dc4 . claus parents: 138 diff changeset	8778	"
0db355079dc4 . claus parents: 138 diff changeset	8779	newWidth < 1 ifTrue:[
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8780	newWidth := 1.
140 0db355079dc4 . claus parents: 138 diff changeset	8781	].
0db355079dc4 . claus parents: 138 diff changeset	8782	newHeight < 1 ifTrue:[
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8783	newHeight := 1
140 0db355079dc4 . claus parents: 138 diff changeset	8784	].
0db355079dc4 . claus parents: 138 diff changeset	8785
0db355079dc4 . claus parents: 138 diff changeset	8786	((newWidth == width) and:[newHeight == height]) ifTrue:[
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8787	sameOrigin ifTrue:[^ self].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8788	dependents notNil ifTrue:[ self changed:#origin ].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8789	^ self pixelOrigin:origin
5428 62da57f5206d border drawing on resize Claus Gittinger <cg@exept.de> parents: 5422 diff changeset	8790	].
62da57f5206d border drawing on resize Claus Gittinger <cg@exept.de> parents: 5422 diff changeset	8791
140 0db355079dc4 . claus parents: 138 diff changeset	8792	top := newTop.
0db355079dc4 . claus parents: 138 diff changeset	8793	left := newLeft.
0db355079dc4 . claus parents: 138 diff changeset	8794
0db355079dc4 . claus parents: 138 diff changeset	8795	"/ shown ifTrue:[ "4-nov-94 actually correct,"
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	8796	self drawableId notNil ifTrue:[ "but theres a bug in menus when resized while hidden"
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8797	mustRedrawBottomEdge := (margin ~~ 0) and:[newHeight < height].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8798	mustRedrawRightEdge := (margin ~~ 0) and:[newWidth < width].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8799
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8800	((newHeight <= height) and:[newWidth <= width]) ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8801	how := #smaller
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8802	] ifFalse:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8803	((newHeight >= height) and:[newWidth >= width]) ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8804	how := #larger
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8805	]
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8806	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8807
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8808	mustRepaintRight := false.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8809	mustRepaintBottom := false.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8810
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8811	oldWidth := width.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8812	oldHeight := height.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8813
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8814	shown ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8815	(margin ~~ 0) ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8816	"clear the old edges"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8817
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8818	oldPaint := nil.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8819	newWidth > width ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8820	self clippingBounds:nil.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8821	oldPaint := self paint.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8822	self paint:viewBackground.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8823	self fillDeviceRectangleX:(width - margin)
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8824	y:0
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8825	width:margin
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8826	height:height.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8827	mustRepaintRight := true.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8828	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8829	newHeight > height ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8830	self clippingBounds:nil.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8831	oldPaint := self paint.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8832	self paint:viewBackground.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8833	self fillDeviceRectangleX:0
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8834	y:(height - margin)
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8835	width:width
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8836	height:margin.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8837	mustRepaintBottom := true.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8838	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8839	oldPaint notNil ifTrue:[ self paint:oldPaint. ]
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8840	]
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8841	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8842
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8843	width := newWidth.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8844	height := newHeight.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8845
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8846	self setInnerClip.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8847
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8848	"if view becomes smaller, send sizeChanged first"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8849	"now always"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8850	true "(how == #smaller)" ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8851	self sizeChanged:how from:(oldWidth @ oldHeight)
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8852	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8853
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8854	"have to tell X, when extent of view is changed"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8855	sameOrigin ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8856	device resizeWindow:self drawableId width:width height:height.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8857	] ifFalse:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8858	"claus: some xservers seem to do better when resizing
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8859	first ...."
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8860	"
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8861	(how == #smaller) ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8862	device resizeWindow:drawableId width:width height:height.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8863	device moveWindow:drawableId x:left y:top
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8864	] ifFalse:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8865	device moveResizeWindow:drawableId x:left y:top width:width height:height
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8866	].
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	8867	"
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8868	device moveResizeWindow:self drawableId x:left y:top
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8869	width:width height:height.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8870	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8871
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8872	"if view becomes bigger, send sizeChanged after"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8873	"no longer"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8874	false "(how ~~ #smaller)" ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8875	self sizeChanged:how from:(oldWidth @ oldHeight)
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8876	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8877
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8878	shown ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8879	(mustRedrawBottomEdge or:[mustRedrawRightEdge]) ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8880	border notNil ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8881	mustRedrawBottomEdge ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8882	self invalidateDeviceRectangle:((0 @ (height - margin)) extent:width@margin) repairNow:false.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8883	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8884	mustRedrawRightEdge ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8885	self invalidateDeviceRectangle:(((width - margin) @ 0) extent:margin@height) repairNow:false.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8886	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8887	] ifFalse:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8888	self deviceClippingBounds:nil.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8889	oldPaint := self paint.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8890	mustRedrawBottomEdge ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8891	self drawBottomEdge
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8892	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8893	mustRedrawRightEdge ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8894	self drawRightEdge
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8895	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8896	self paint:oldPaint.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8897	self deviceClippingBounds:innerClipRect
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8898	]
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8899	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8900	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8901
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8902	mustRepaintRight ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8903	self invalidateDeviceRectangle:(((oldWidth - margin) @ 0)
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8904	extent:margin@height)
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8905	repairNow:false.
2400 13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8906	"/ self redrawDeviceX:(oldWidth - margin)
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8907	"/ y:0
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8908	"/ width:margin
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8909	"/ height:height.
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8910	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8911	mustRepaintBottom ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8912	self invalidateDeviceRectangle:((0 @ (oldHeight - margin))
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8913	extent:width@margin)
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8914	repairNow:false.
2400 13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8915	"/ self redrawDeviceX:0
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8916	"/ y:(oldHeight - margin)
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8917	"/ width:width
13dc68f612fb when resizing, invalidate instead of redrawing right away Claus Gittinger <cg@exept.de> parents: 2396 diff changeset	8918	"/ height:margin.
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8919	].
140 0db355079dc4 . claus parents: 138 diff changeset	8920	] ifFalse:[
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8921	"otherwise memorize the need for a sizeChanged message"
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8922
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8923	width := newWidth.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8924	height := newHeight.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8925	sameOrigin ifFalse:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8926	self originChangedFlag:true.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8927	].
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8928	self extentChangedFlag:true.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8929	subViews notEmptyOrNil ifTrue:[
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8930	self extentChangedBeforeCreatedFlag:true.
00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8931	].
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	8932	].
378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	8933	sameOrigin ifFalse:[
7728 00826284cb7d #TUNING by cg Claus Gittinger <cg@exept.de> parents: 7713 diff changeset	8934	dependents notNil ifTrue:[ self changed:#origin ].
3784 378456357157 added #frame for displayObject compatibility Michael Beyl <mb@exept.de> parents: 3781 diff changeset	8935	].
739 3d809aa492ec checkin from browser Claus Gittinger <cg@exept.de> parents: 738 diff changeset	8936
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8937	"Modified: / 25-05-1999 / 14:49:56 / cg"
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	8938	"Modified: / 18-03-2017 / 00:28:57 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	8939	!
0db355079dc4 . claus parents: 138 diff changeset	8940
0db355079dc4 . claus parents: 138 diff changeset	8941	pointFromRelative:p
0db355079dc4 . claus parents: 138 diff changeset	8942	"compute absolute coordinate from p"
0db355079dc4 . claus parents: 138 diff changeset	8943
0db355079dc4 . claus parents: 138 diff changeset	8944	\|newX newY rel inRect bw superWidth superHeight superLeft superTop \|
0db355079dc4 . claus parents: 138 diff changeset	8945
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	8946	bw := self borderWidth ? 0.
140 0db355079dc4 . claus parents: 138 diff changeset	8947
0db355079dc4 . claus parents: 138 diff changeset	8948	superView isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8949	superWidth := device width + bw.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8950	superHeight := device height + bw.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8951	superLeft := superTop := 0.
140 0db355079dc4 . claus parents: 138 diff changeset	8952	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8953	inRect := superView viewRectangle.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8954	superWidth := inRect width.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8955	superHeight := inRect height.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8956	superLeft := inRect left.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8957	superTop := inRect top.
140 0db355079dc4 . claus parents: 138 diff changeset	8958	].
0db355079dc4 . claus parents: 138 diff changeset	8959
0db355079dc4 . claus parents: 138 diff changeset	8960	rel := p x.
0db355079dc4 . claus parents: 138 diff changeset	8961	rel isInteger ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8962	newX := rel
140 0db355079dc4 . claus parents: 138 diff changeset	8963	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8964	newX := (rel * superWidth) asInteger + superLeft.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8965	(bw ~~ 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8966	rel ~= 1.0 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8967	newX := newX - bw
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8968	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8969	]
140 0db355079dc4 . claus parents: 138 diff changeset	8970	].
0db355079dc4 . claus parents: 138 diff changeset	8971
0db355079dc4 . claus parents: 138 diff changeset	8972	rel := p y.
0db355079dc4 . claus parents: 138 diff changeset	8973	rel isInteger ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8974	newY := rel
140 0db355079dc4 . claus parents: 138 diff changeset	8975	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8976	newY := (rel * superHeight) asInteger + superTop.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8977	(bw ~~ 0) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8978	rel ~= 1.0 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8979	newY := newY - bw
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8980	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	8981	]
140 0db355079dc4 . claus parents: 138 diff changeset	8982	].
0db355079dc4 . claus parents: 138 diff changeset	8983	^ newX @ newY
2382 2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	8984
2fe724f3efcd init borderWidth. Claus Gittinger <cg@exept.de> parents: 2381 diff changeset	8985	"Modified: / 1.10.1998 / 13:21:14 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	8986	!
0db355079dc4 . claus parents: 138 diff changeset	8987
0db355079dc4 . claus parents: 138 diff changeset	8988	setBorderColor
5405 369200caeaaf border stuff Claus Gittinger <cg@exept.de> parents: 5390 diff changeset	8989	"set my borderColor in the physical view (if supported by the device)"
140 0db355079dc4 . claus parents: 138 diff changeset	8990
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8991	"/ \|id dither\|
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8992	"/
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8993	"/ drawableId notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8994	"/ borderColor := borderColor onDevice:device.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8995	"/ id := borderColor colorId.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8996	"/ id notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8997	"/ device setWindowBorderColor:id in:drawableId
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8998	"/ ] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	8999	"/ dither := borderColor ditherForm.
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9000	"/ dither notNil ifTrue:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9001	"/ device setWindowBorderPixmap:(dither id) in:drawableId
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9002	"/ ] ifFalse:[
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9003	"/ 'SimpleView [warning]: bad borderColor' errorPrintCR
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9004	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9005	"/ ]
26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	9006	"/ ]
1172 a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	9007
a69398754511 newStyle info & error messages Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	9008	"Modified: 10.1.1997 / 18:06:34 / cg"
135 cf8e46015072 . claus parents: diff changeset	9009	!
cf8e46015072 . claus parents: diff changeset	9010
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9011	setInnerClip
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9012	"compute, and set the inside clip-area"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9013
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9014	self computeInnerClip.
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	9015	self clippingBounds:innerClipRect.
2726 c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	9016
c0a05c874843 always use a deviceClipRect as innerClip; Claus Gittinger <cg@exept.de> parents: 2721 diff changeset	9017	"Modified: / 25.5.1999 / 14:45:53 / cg"
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9018	!
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9019
7838 914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	9020	setShown:aBoolean
914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	9021	shown := aBoolean
914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	9022
914488231b16 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7793 diff changeset	9023	"Modified (format): / 04-02-2017 / 21:34:42 / cg"
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9024	!
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9025
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9026	setViewShape
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9027	\|form\|
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9028
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9029	(form := viewShape borderShapeForm) notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9030	gc windowBorderShape:form.
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9031	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9032	(form := viewShape viewShapeForm) notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9033	gc windowShape:form.
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9034	].
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9035
285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	9036	"Created: 18.9.1997 / 11:09:00 / cg"
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	9037	!
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9038
6acf2874394b WO's stuff werner parents: 4131 diff changeset	9039	windowGroupClass
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9040	^ WindowGroup
140 0db355079dc4 . claus parents: 138 diff changeset	9041	! !
0db355079dc4 . claus parents: 138 diff changeset	9042
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9043	!SimpleView methodsFor:'queries'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9044
6117 b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9045	anyComponentHasFocus
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9046	"return true, if the receiver or any of my components has the keyboard focus
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9047	(either via the focusView mechanism in the windowGroup,
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9048	or via delegation)"
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9049
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9050	\|focusViewToCheck focusViewOnDisplay delegate\|
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9051
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9052	windowGroup isNil ifTrue:[^ false].
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9053
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9054	"/ this is wrong (the old code).
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9055	"/ focusViewInWindowGroup := windowGroup focusView.
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9056	"/ focusViewToCheck := focusViewInWindowGroup.
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9057
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	9058	focusViewOnDisplay := device focusView.
6117 b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9059	focusViewToCheck := focusViewOnDisplay.
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9060
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9061	focusViewToCheck == self ifTrue:[ ^ true ].
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9062
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9063	focusViewToCheck notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9064	(focusViewToCheck isComponentOf: self) ifTrue:[ ^ true ].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9065
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9066	"mhmh - is there a delegation to me ?"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9067	(delegate := focusViewToCheck delegate) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9068	delegate == self ifTrue:[^ true].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9069	"/ no: delegate does not understand this (EnterFieldGroup or KbdForwarder)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9070	"/ we will see, if commenting this leads to problems...
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9071	"/ (delegate isComponentOf: self) ifTrue:[ ^ true ].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9072	^ delegate askFor:#delegatesTo: with:self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9073	]
6117 b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9074	].
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9075	^ false
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9076
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9077	"Modified: / 08-11-2006 / 12:10:32 / cg"
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9078	!
b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9079
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9080	canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9081	"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	9082	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	9083	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9084
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9085	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9086	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9087
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9088	canHandle:aKey from:aView
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9089	"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	9090	in aView.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9091	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	9092	leftOver and will be removed. Use the delegation mechanism for this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9093
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9094	^ self canHandle:aKey
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9095	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9096
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9097	computePreferredExtent
5060 01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	9098	"compute answer the preferred extent, disregarding
01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	9099	an explicit or cached preferred extent for the computation"
01bb459aaa8b changed #preferredExtent - use explicitExtent instvar Stefan Vogel <sv@exept.de> parents: 5050 diff changeset	9100
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9101	\|savedPref savedExplicit computedPref\|
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9102
440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9103	savedPref := preferredExtent.
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9104	savedExplicit := explicitExtent.
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9105	[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9106	preferredExtent := explicitExtent := nil.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9107	computedPref := self preferredExtent.
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9108	] ensure:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9109	preferredExtent := savedPref.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9110	explicitExtent := savedExplicit.
4915 440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9111	].
440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9112	^ computedPref
440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9113	!
440fb8ebb234 changed #computePreferredExtent (from cg) Stefan Vogel <sv@exept.de> parents: 4907 diff changeset	9114
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9115	cornerChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9116	"/ ^ cornerChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9117	^ flagBits bitTest:FlagCornerChanged
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9118	!
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9119
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9120	cornerChangedFlag:aBoolean
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9121	"/ cornerChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9122	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9123	flagBits := flagBits bitOr:FlagCornerChanged
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9124	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9125	flagBits := flagBits bitClear:FlagCornerChanged
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9126	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9127	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9128
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9129	delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9130	"return true, if I delegate events to someone"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9131
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9132	delegate isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9133	^ delegate delegatesTo:someone
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9134	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9135
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	9136	escapeIsCancel
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	9137	"return the escapeIsCancel setting - defaults to true for popupViews here."
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	9138
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	9139	^ self isPopUpView
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	9140	!
f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	9141
3394 56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	9142	extentChangedBeforeCreatedFlag
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	9143	^ flagBits bitTest:FlagExtentChangedBeforeCreated
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	9144	!
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	9145
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	9146	extentChangedBeforeCreatedFlag:aBoolean
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	9147	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9148	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	9149	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9150	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	9151	].
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	9152	!
56080b4ebce1 remember the fact, that the extent changed before the view Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	9153
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9154	extentChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9155	"/ ^ extentChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9156	^ flagBits bitTest:FlagExtentChanged
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9157	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9158
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9159	extentChangedFlag:aBoolean
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9160	"/ extentChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9161	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9162	flagBits := flagBits bitOr:FlagExtentChanged
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9163	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9164	flagBits := flagBits bitClear:FlagExtentChanged
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9165	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9166	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9167
5140 711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	9168	hasExplicitFocus
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	9169	"return true, if the receiver has the keyboard focus
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	9170	via the focusView mechanism in the windowGroup"
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	9171
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	9172	windowGroup isNil ifTrue:[^ false].
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	9173	^ windowGroup explicitFocusView == self
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	9174	!
711f73e23b87 +hasExplicitFocus Claus Gittinger <cg@exept.de> parents: 5137 diff changeset	9175
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9176	hasFocus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9177	"return true, if the receiver has the keyboard focus
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9178	(either via the focusView mechanism in the windowGroup,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9179	or via delegation)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9180
6077 267fb1241ec2 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 6074 diff changeset	9181	\|focusViewToCheck focusViewOnDisplay delegate\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9182
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9183	windowGroup isNil ifTrue:[^ false].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9184
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9185	"/ this is wrong (the old code).
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9186	"/ focusViewInWindowGroup := windowGroup focusView.
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9187	"/ focusViewToCheck := focusViewInWindowGroup.
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9188
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	9189	focusViewOnDisplay := device focusView.
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9190	focusViewToCheck := focusViewOnDisplay.
4834 312cf6fbee53 * empty log message * fm parents: 4833 diff changeset	9191
6117 b0f2ee933547 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6116 diff changeset	9192	focusViewToCheck == self ifTrue:[ ^ true ].
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9193
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9194	focusViewToCheck notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9195	"mhmh - is there a delegation to me ?"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9196	(delegate := focusViewToCheck delegate) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9197	delegate == self ifTrue:[^ true].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9198	^ delegate askFor:#delegatesTo: with:self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9199	]
135 cf8e46015072 . claus parents: diff changeset	9200	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9201	^ false
4675 b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9202
b8e2a532c680 focusHandling Claus Gittinger <cg@exept.de> parents: 4674 diff changeset	9203	"Modified: / 08-11-2006 / 12:10:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9204	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9205
370 c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	9206	is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	9207	"return true, if my style is some kind of 3D style
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	9208	This is OBSOLETE and will be removed."
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	9209
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	9210	^ styleSheet is3D
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	9211	!
c43763552e80 category changes Claus Gittinger <cg@exept.de> parents: 369 diff changeset	9212
6136 be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9213	isActive
be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9214	"true, if I have the focus (w.r.t the windowing system);
be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9215	i.e. if one of my subViews actually has the real focus.
be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9216	With click-to-focus behavior, this is obviously the current application.
be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9217	Use this query with caution, for example, to suppress tooltips for inactive apps."
be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9218
be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9219	^ windowGroup notNil and:[windowGroup anyViewHasFocus]
be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9220	!
be85ab25bd44 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6132 diff changeset	9221
794 d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	9222	isBorderedWrapper
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	9223	^ false
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	9224
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	9225	"Created: 5.6.1996 / 14:11:15 / cg"
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	9226	!
d21c9a163f20 care for border wrappers Claus Gittinger <cg@exept.de> parents: 792 diff changeset	9227
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9228	isComponentOf:aViewOrComponent
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9229	"return true, if I am a (direct or indirect) component of aViewOrComponent"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9230
3362 6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	9231	\|sview\|
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	9232
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	9233	sview := self.
6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	9234
3616 0ddaf2ce9b06 * empty log message * Claus Gittinger <cg@exept.de> parents: 3614 diff changeset	9235	[ (sview := sview container) notNil ] whileTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9236	sview == aViewOrComponent ifTrue:[^ true].
3362 6774771fc2b8 fix #isComponentOf: ca parents: 3358 diff changeset	9237	].
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9238	^ false
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9239	!
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9240
3711 f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	9241	isCursorKeyConsumer
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	9242	"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	9243	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	9244	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	9245	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	9246	mode is off.
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	9247	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	9248
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	9249	^ false
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	9250	!
f74e461c8b31 added #isCursorKeyConsumer (second chance initial focus in dialog) Claus Gittinger <cg@exept.de> parents: 3709 diff changeset	9251
2496 f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	9252	isDefault
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	9253	"return true, if I am a default widget;
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	9254	Used with autoAccept. Currently only default buttons are supposed to return
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	9255	true here"
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	9256
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	9257	^ false
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	9258	!
f3093d8a83f8 checkin from browser Claus Gittinger <cg@exept.de> parents: 2495 diff changeset	9259
2430 fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	9260	isExternalTopView
2454 f708fb443ffe method comment Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	9261	"return true, if this is an external topView - always false here"
f708fb443ffe method comment Claus Gittinger <cg@exept.de> parents: 2452 diff changeset	9262
2430 fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	9263	^ false
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	9264
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	9265
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	9266	!
fbce2378d686 added isExternalTopView query. Claus Gittinger <cg@exept.de> parents: 2425 diff changeset	9267
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	9268	isICCCWindowGroupWindow
65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	9269	"needed for checkForEndOfDispatch"
65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	9270
65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	9271	^ false
65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	9272	!
65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	9273
497 5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9274	isInputField
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9275	"return true, if the receiver is some kind of input view,
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9276	i.e. it should (can) be part of an enterGroup.
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9277	Return false here, this is redefined in EnterField."
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9278
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9279	^ false
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9280
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9281	"Created: 4.3.1996 / 11:34:07 / cg"
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9282	!
5c2f58720c62 checkin from browser Claus Gittinger <cg@exept.de> parents: 494 diff changeset	9283
2410 050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	9284	isJavaView
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	9285	^ false
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	9286
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	9287	"Created: / 4.12.1998 / 14:10:06 / cg"
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	9288	!
050a7633ba9f checkin from browser Claus Gittinger <cg@exept.de> parents: 2406 diff changeset	9289
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9290	isKeyboardConsumer
2727 2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	9291	"return true, if the receiver is a keyboard consumer;
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9292	i.e. it can handle (non-shortkey) keyboard input,
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9293	keyboardConsumer are potential candidates for getting the keyboard
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9294	focus initially within dialogBoxes, or when the focus-follows-pointer
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9295	mode is off.
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9296	Return false here, this is redefined in EditTextView and EditField."
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9297
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9298	^ false
2727 2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	9299
2047aa7dd3ac comment Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	9300	"Modified: / 22.5.1999 / 16:19:27 / cg"
2588 4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9301	!
4a5b0e48d645 checkin from browser Claus Gittinger <cg@exept.de> parents: 2584 diff changeset	9302
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	9303	isLayoutWrapper
5229 3caaef23e005 UIPainter can now resize subviews of PanelViews Stefan Vogel <sv@exept.de> parents: 5228 diff changeset	9304	"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	9305
3caaef23e005 UIPainter can now resize subviews of PanelViews Stefan Vogel <sv@exept.de> parents: 5228 diff changeset	9306	^ false
964 5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	9307
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	9308	"Created: 19.7.1996 / 17:51:04 / cg"
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	9309	!
5236c3ceb002 more view mimicri; Claus Gittinger <cg@exept.de> parents: 955 diff changeset	9310
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	9311	isMDIClientView
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	9312	^false
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	9313	!
df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	9314
4184 1b6a082d98e2 isModal added ca parents: 4157 diff changeset	9315	isModal
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	9316	"return true, if the receiver has been opened modal.
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	9317	For compatibility with topView (if regular views are the window of an application),
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	9318	return false here."
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	9319
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	9320	^ false
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	9321	!
1b6a082d98e2 isModal added ca parents: 4157 diff changeset	9322
3653 dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	9323	isSameOrComponentOf:aView
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	9324	"return true, if I am aView or a (direct or indirect) component of aView"
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	9325
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	9326	^ self == aView or:[self isComponentOf:aView].
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	9327	!
dd77a60ef178 +isSameOrComponentOf: penk parents: 3648 diff changeset	9328
2161 46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	9329	isScrollWrapper
4918 4c804945889f Clean up documentation & variable names Stefan Vogel <sv@exept.de> parents: 4915 diff changeset	9330	"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	9331
2161 46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	9332	^ false
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	9333
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	9334	"Created: / 5.6.1996 / 14:11:15 / cg"
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	9335	"Modified: / 20.6.1998 / 14:15:29 / cg"
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	9336	!
46940821c697 added #isScrollWrapper query. Claus Gittinger <cg@exept.de> parents: 2159 diff changeset	9337
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9338	isSubViewOf:aView
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9339	"return true, if I am a (direct or indirect) subview of aView"
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9340
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	9341	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	9342
791 e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9343	self obsoleteMethodWarning:'use #isComponentOf:'.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9344	^ self isComponentOf:aView.
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9345
e6adfb28e3bc isSubViewOf: -> isComponentOf: Claus Gittinger <cg@exept.de> parents: 782 diff changeset	9346	"Modified: 5.6.1996 / 14:25:35 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9347	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9348
5804 c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9349	isTextView
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9350
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9351	"Returns true, if the view displays text"
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9352
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9353	"JV@2011-09-16: Do not remove this method, it is called
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9354	at many places. See senders before removing!!!!!!"
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9355
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9356	^ false
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9357
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9358	"Created: / 16-09-2011 / 17:49:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9359	!
c769d3a0325d re-added: #isTextView (it is sent at many places) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5782 diff changeset	9360
4151 a3f84166256d isTBox werner parents: 4150 diff changeset	9361	isTransparentBox
a3f84166256d isTBox werner parents: 4150 diff changeset	9362	^ false
a3f84166256d isTBox werner parents: 4150 diff changeset	9363	!
a3f84166256d isTBox werner parents: 4150 diff changeset	9364
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9365	isWrapper
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9366	^ false
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9367
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9368	"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	9369	!
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9370
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9371	originChangedFlag
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9372	"/ ^ originChangedFlag == true
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9373	^ flagBits bitTest:FlagOriginChanged
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9374	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9375
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9376	originChangedFlag:aBoolean
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9377	"/ originChangedFlag := aBoolean
08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9378	aBoolean ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9379	flagBits := flagBits bitOr:FlagOriginChanged
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9380	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9381	flagBits := flagBits bitClear:FlagOriginChanged
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9382	].
3368 57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9383	!
57da0cceaf16 concentrated all accesses to originChanged, extentChanged and Claus Gittinger <cg@exept.de> parents: 3367 diff changeset	9384
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9385	originChangedFlag:originChanged extentChangedFlag:extentChanged
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9386	\|newBits\|
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9387
5946 a2a03a6445c1 changed: Claus Gittinger <cg@exept.de> parents: 5944 diff changeset	9388	newBits := flagBits bitClear:(FlagOriginChanged bitOr: FlagExtentChanged).
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9389
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9390	originChanged ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9391	newBits := newBits bitOr:FlagOriginChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9392	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9393	extentChanged ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9394	newBits := newBits bitOr:FlagExtentChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9395	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9396
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9397	flagBits := newBits.
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9398	!
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9399
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9400	originChangedFlag:originChanged extentChangedFlag:extentChanged cornerChangedFlag:cornerChanged
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9401	\|newBits\|
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9402
5946 a2a03a6445c1 changed: Claus Gittinger <cg@exept.de> parents: 5944 diff changeset	9403	newBits := flagBits bitClear:((FlagOriginChanged bitOr: FlagExtentChanged) bitOr: FlagCornerChanged).
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9404
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9405	originChanged ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9406	newBits := newBits bitOr:FlagOriginChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9407	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9408	extentChanged ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9409	newBits := newBits bitOr:FlagExtentChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9410	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9411	cornerChanged ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9412	newBits := newBits bitOr:FlagCornerChanged
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9413	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9414
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9415	flagBits := newBits.
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9416	!
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	9417
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9418	originOrExtentChanged
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9419	"/ ^ originChanged or:[extentChanged].
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9420	^ flagBits bitTest:( FlagOriginChanged + FlagExtentChanged )
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9421	!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9422
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9423	originOrExtentOrCornerChanged
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9424	"/ ^ 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	9425	^ 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	9426	!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	9427
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9428	preferredBounds
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9429	"ST-80 compatibility."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9430
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	9431	^ 0@0 extent:(self preferredExtent)
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	9432
3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	9433	"Modified: 19.7.1996 / 20:41:36 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9434	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9435
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9436	preferredExtent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9437	"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	9438	If the preferredExtent has been set, that one is returned.
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9439	Otherwise, if there are any components, a rectangle enclosing them
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9440	is returned. Otherwise, the actual extent is returned."
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9441
1063 ba1bf8091bc1 unused variable cleanup Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	9442	\|maxX maxY\|
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9443
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9444	"/ If I have an explicit preferredExtent..
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9445	explicitExtent notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9446	^ explicitExtent
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9447	].
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9448
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9449	"/ If I have a cached preferredExtent value..
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9450	preferredExtent notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9451	^ preferredExtent
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9452	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9453
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9454	"/ mhmh - if I have subViews, collect their
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9455	"/ preferred bounds ...
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9456
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9457	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9458	maxX := maxY := 0.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9459	subViews do:[:aSubView \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9460	\|org corn\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9461
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9462	org := aSubView computeOrigin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9463	corn := org + aSubView preferredExtent.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9464	maxX := maxX max:corn x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9465	maxY := maxY max:corn y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9466	]
5021 b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9467	].
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9468
b35cef3e421d changed #copyDataEvent:eventData:view: Claus Gittinger <cg@exept.de> parents: 5017 diff changeset	9469	"/ mhmh - if I have components, collect their preferred bounds ...
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9470	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9471	maxX isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9472	maxX := maxY := 0.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9473	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9474	components do:[:aComponent \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9475	\|bounds org corn\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9476
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9477	bounds := aComponent preferredBounds.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9478	corn := bounds corner.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9479	maxX := maxX max:corn x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9480	maxY := maxY max:corn y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9481	]
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9482	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9483
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9484	"/ nothing found - return the actual size
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9485
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9486	maxX isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9487	^ self extent.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9488	].
34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9489
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9490	^ maxX @ maxY.
761 34d17118452a care for preSet preferredExtent Claus Gittinger <cg@exept.de> parents: 760 diff changeset	9491
971 3137be953256 checkin from browser Claus Gittinger <cg@exept.de> parents: 967 diff changeset	9492	"Modified: 19.7.1996 / 20:43:32 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9493	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9494
4970 6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	9495	preferredHeight
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	9496	^ self preferredExtent y
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	9497	!
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	9498
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	9499	preferredWidth
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	9500	^ self preferredExtent x
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	9501	!
6a58581288cc added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 4968 diff changeset	9502
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	9503	reallyRealized
6246 bca5bde259bf class: SimpleView Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	9504	"return true, if the receiver is realized and all containers are realized.
bca5bde259bf class: SimpleView Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	9505	Realized means that it has been mapped (i.e. made visible) on
bca5bde259bf class: SimpleView Claus Gittinger <cg@exept.de> parents: 6229 diff changeset	9506	the display (as opposed to being only created and possibly invisible)"
2956 7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	9507
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	9508	realized ifFalse:[^ false].
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	9509	superView isNil ifTrue:[^ true].
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	9510	^ superView reallyRealized
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	9511	!
7df6d15ae1a5 renamed #fullyRealized Claus Gittinger <cg@exept.de> parents: 2935 diff changeset	9512
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	9513	resources
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9514	"return the view's resources -
5221 3c4682d4b409 comment only Claus Gittinger <cg@exept.de> parents: 5214 diff changeset	9515	that's a ResourcePack containing national language strings"
3c4682d4b409 comment only Claus Gittinger <cg@exept.de> parents: 5214 diff changeset	9516
2130 5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	9517	^ resources
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	9518
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	9519	"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	9520	!
5dbffd126b4a added #resources class method for all views. Claus Gittinger <cg@exept.de> parents: 2128 diff changeset	9521
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9522	sizeFixed
7339 c51be133de59 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7337 diff changeset	9523	"return true, if this view wants its size to remain unchanged.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9524	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	9525
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9526	^ false
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9527
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9528	"Created: 17.9.1995 / 20:29:20 / claus"
3901 88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	9529	!
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	9530
5727 d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	9531	startWindowMoveOnButtonPress
d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	9532	"if another view is used as topView"
d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	9533
d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	9534	^ false
d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	9535
d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	9536	"Created: / 04-03-2011 / 08:57:45 / cg"
d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	9537	!
d0b9ef9c0cc0 added: #startWindowMoveOnButtonPress Claus Gittinger <cg@exept.de> parents: 5722 diff changeset	9538
3901 88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	9539	tabRequiresControl
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	9540	"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	9541	The default is true for editTextView, false for other widgets,
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	9542	to allow for easier text entry"
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	9543
88018bc87ad9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3894 diff changeset	9544	^ false
4191 7f999428c830 * empty log message * ca parents: 4189 diff changeset	9545	!
7f999428c830 * empty log message * ca parents: 4189 diff changeset	9546
7f999428c830 * empty log message * ca parents: 4189 diff changeset	9547	window
7f999428c830 * empty log message * ca parents: 4189 diff changeset	9548	"for compatibility with applicationModels ... return the receiver"
7f999428c830 * empty log message * ca parents: 4189 diff changeset	9549
7f999428c830 * empty log message * ca parents: 4189 diff changeset	9550	^ self
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9551	! !
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9552
5202 966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	9553	!SimpleView methodsFor:'queries-delegation'!
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	9554
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	9555	handlesMouseWheelMotion:event inView:aView
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	9556	"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	9557
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	9558	^ false
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	9559	! !
966f7b304597 No longer scroll the focus view for mouseWheel events. Stefan Vogel <sv@exept.de> parents: 5154 diff changeset	9560
3266 4db6dd90cc17 category change Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	9561	!SimpleView methodsFor:'queries-events'!
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9562
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9563	buttonMotionEventPending
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9564	"return true, if a button motion event is pending.
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	9565	Normally, you don't want to use this, since no polling is needed
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9566	(not even for mouse-tracking).
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9567	Actually, its a historical leftover"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9568
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9569	windowGroup notNil ifTrue:[
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	9570	^ windowGroup sensor hasButtonMotionEventFor:self
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9571	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9572	^ super buttonMotionEventPending
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9573
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9574	"Modified: 1.11.1996 / 17:04:38 / cg"
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9575	! !
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	9576
3266 4db6dd90cc17 category change Claus Gittinger <cg@exept.de> parents: 3251 diff changeset	9577	!SimpleView methodsFor:'queries-internal'!
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9578
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	9579	specClass
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9580	"fallback - heuristics to get a specClass for some viewClass.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9581	Based upon my className, look for a corresponding Spec-class.
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9582	If there is none, return ArbiraryComponentSpec as a fallBack"
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9583
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9584	\|myClass myName cls\|
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9585
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9586	myClass := self class.
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9587	(myClass == View or:[myClass == SimpleView]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9588	^ ViewSpec "/ CompositeSpecCollection
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9589	].
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9590
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9591	"/ try: appending 'Spec' to my classes name
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	9592
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	9593	myName := self class name.
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	9594	cls := Smalltalk classNamed:(myName , 'Spec').
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9595	cls notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9596	cls := cls autoload.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9597	(cls isSubclassOf:UISpecification) ifTrue:[^ cls].
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9598	].
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	9599
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	9600	(myName endsWith:'View') ifTrue:[
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9601	"/ "/ try name without 'View'
bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9602	"/ cls := Smalltalk classNamed:(myName copyWithoutLast:4).
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9603	"/ cls notNil ifTrue:[
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9604	"/ cls := cls autoload.
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9605	"/ (cls isSubclassOf:UISpecification) ifTrue:[^ cls].
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9606	"/ ].
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9607
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9608	"/ try with 'View' replaced by 'Spec'
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9609	cls := Smalltalk classNamed:((myName copyButLast:4) , 'View').
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9610	cls notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9611	cls := cls autoload.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9612	(cls isSubclassOf:UISpecification) ifTrue:[^ cls].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9613	]
4157 6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9614	].
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9615
6499061440cd Streamline autoloading. Stefan Vogel <sv@exept.de> parents: 4151 diff changeset	9616	"/ fall back for all others
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9617	^ ArbitraryComponentSpec
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9618
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	9619
b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	9620	"
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9621	FramedBox new specClass
1354 b5baf62b8c7a * empty log message * Claus Gittinger <cg@exept.de> parents: 1335 diff changeset	9622	"
1409 3818a8a85c16 use CompositeSpecCollection as specClass for Claus Gittinger <cg@exept.de> parents: 1402 diff changeset	9623
1943 bab4bcd19c6c checkin from browser Claus Gittinger <cg@exept.de> parents: 1938 diff changeset	9624	"Modified: / 31.10.1997 / 19:44:55 / cg"
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9625	!
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9626
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9627	windowStyle
3715 70eea03a8d8d comment Claus Gittinger <cg@exept.de> parents: 3711 diff changeset	9628	"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	9629
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9630	self isPopUpView ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9631	^ #popUp
4497 df0cf097971f mdi Claus Gittinger <cg@exept.de> parents: 4494 diff changeset	9632	].
4501 0455a5453085 * empty log message * Claus Gittinger <cg@exept.de> parents: 4499 diff changeset	9633	self isMDIChildView ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9634	^ #mdiChild
4501 0455a5453085 * empty log message * Claus Gittinger <cg@exept.de> parents: 4499 diff changeset	9635	].
1699 ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9636	^ #normal
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9637
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9638	"Created: 2.5.1997 / 14:29:48 / cg"
ae9986a1a97f preps for native window support Claus Gittinger <cg@exept.de> parents: 1696 diff changeset	9639	"Modified: 2.5.1997 / 14:30:14 / cg"
4494 5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	9640	!
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	9641
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	9642	windowType
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	9643	"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	9644
5f811173a85b preps for mdi-windowType Claus Gittinger <cg@exept.de> parents: 4492 diff changeset	9645	^ nil
140 0db355079dc4 . claus parents: 138 diff changeset	9646	! !
0db355079dc4 . claus parents: 138 diff changeset	9647
0db355079dc4 . claus parents: 138 diff changeset	9648	!SimpleView methodsFor:'realization'!
0db355079dc4 . claus parents: 138 diff changeset	9649
5602 eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	9650	activate
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	9651	"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	9652
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	9653	"Created: / 17-09-2010 / 16:30:24 / cg"
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	9654	"Modified: / 17-09-2010 / 18:39:35 / cg"
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	9655	!
eca06436db1d added: #activate Claus Gittinger <cg@exept.de> parents: 5595 diff changeset	9656
3459 d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	9657	closeCancel
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	9658	"for protocol compatibility with modal dialogs"
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	9659
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	9660	self hideRequest
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	9661	!
d50728855052 optionBox: cancel-value corrected Claus Gittinger <cg@exept.de> parents: 3439 diff changeset	9662
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9663	create
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9664	"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	9665	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	9666
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	9667	self drawableId isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9668	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9669	make certain that superview is created also
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9670	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9671	superView notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9672	superView view create.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9673
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9674	"/ "and put my controller into the superviews controller list"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9675	"/ controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9676	"/ superView controller notNil ifTrue:[
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9677	"/ controller manager:(superView controller manager)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9678	"/ ]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9679	"/ ]
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9680	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9681	device isNil ifTrue:[ device := Screen current ].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9682	"/
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9683	"/ if the display is not already dispatching events,
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9684	"/ this starts the event process.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9685	"/
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9686	device startDispatch
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9687	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9688
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9689	cursor notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9690	cursor := cursor onDevice:device.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9691	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9692
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9693	self extentChangedBeforeCreatedFlag ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9694	"/ this is true, if the extent was changed before
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9695	"/ this view was created (and therefore, no sizeChangeEvent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9696	"/ was sent to me, which would notify children.)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9697	"/ have to do this here.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9698	self sizeChanged:nil. "/ must tell children (if any)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9699	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9700	self hasExplicitExtent ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9701	self resize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9702	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9703
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9704	self physicalCreate.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9705
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9706	viewBackground notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9707	self setViewBackground
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9708	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9709
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9710	self initEvents.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9711
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9712	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9713	this is the first create,
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9714	force sizechange messages to be sent to the view
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9715	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9716	self originChangedFlag:true extentChangedFlag:true
151 8123ec03c52f . claus parents: 145 diff changeset	9717	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9718
1494 4faf11deec70 cursor #on: is obsoleted by #onDevice:. Claus Gittinger <cg@exept.de> parents: 1490 diff changeset	9719	"Modified: 28.3.1997 / 13:50:17 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	9720	!
8123ec03c52f . claus parents: 145 diff changeset	9721
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9722	createWithAllSubViews
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9723	"create, then create all subviews"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9724
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	9725	self drawableId isNil ifTrue:[self create].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9726	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9727	subViews do:[:subView \| subView createWithAllSubViews]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9728	]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9729	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9730
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9731	fetchDeviceResources
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9732	"fetch all device specific resources. This is invoked,
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9733	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	9734	time, to allocate device specific colors, fonts, bitmaps etc.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9735	The view may keep those in instance variables, to avoid reallocating
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9736	those with every redraw.
8028 e7f44af6889f #OTHER by mawalch mawalch parents: 8001 diff changeset	9737	If you omit to do this, the views will still be able to display themself,
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9738	but possibly slower, since resources are reallocated over and over.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9739	If you redefine this method, make certain that 'super fetchDeviceResources'
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9740	is always sent."
7416 bd3b9e9edd9e Delegate GraphicsContext objects Stefan Vogel <sv@exept.de> parents: 7405 diff changeset	9741
6987 46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	9742	shadowColor notNil ifTrue:[
8028 e7f44af6889f #OTHER by mawalch mawalch parents: 8001 diff changeset	9743	shadowColor := shadowColor onDevice:device
6987 46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	9744	].
46f73079d0ec #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 6954 diff changeset	9745	lightColor notNil ifTrue:[
8028 e7f44af6889f #OTHER by mawalch mawalch parents: 8001 diff changeset	9746	lightColor := lightColor onDevice:device
e7f44af6889f #OTHER by mawalch mawalch parents: 8001 diff changeset	9747	].
e7f44af6889f #OTHER by mawalch mawalch parents: 8001 diff changeset	9748
e7f44af6889f #OTHER by mawalch mawalch parents: 8001 diff changeset	9749	"Created: / 13-01-1997 / 21:51:59 / cg"
e7f44af6889f #OTHER by mawalch mawalch parents: 8001 diff changeset	9750	"Modified (comment): / 17-05-2017 / 16:34:24 / mawalch"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9751	!
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	9752
140 0db355079dc4 . claus parents: 138 diff changeset	9753	fixSize
0db355079dc4 . claus parents: 138 diff changeset	9754	"This is called right before the view is made visible.
0db355079dc4 . claus parents: 138 diff changeset	9755	Adjust the size of the view according to either relative/abs or
0db355079dc4 . claus parents: 138 diff changeset	9756	block extent; also set origin. Also, subclasses may redefine this
0db355079dc4 . claus parents: 138 diff changeset	9757	method to adjust the size based on some extent (for example, PopUpMenus
0db355079dc4 . claus parents: 138 diff changeset	9758	do so to take care of changed number of menu entries)."
0db355079dc4 . claus parents: 138 diff changeset	9759
151 8123ec03c52f . claus parents: 145 diff changeset	9760	\|org ext r\|
8123ec03c52f . claus parents: 145 diff changeset	9761
8123ec03c52f . claus parents: 145 diff changeset	9762	"
8123ec03c52f . claus parents: 145 diff changeset	9763	slowly migrating to use layoutObjects ...
8123ec03c52f . claus parents: 145 diff changeset	9764	"
8123ec03c52f . claus parents: 145 diff changeset	9765	layout notNil ifTrue:[
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9766	superView notNil ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9767	(self originOrExtentOrCornerChanged) ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9768	layout isAssociation ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9769	layout key == #extent ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9770	org := 1@1.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9771	ext := layout value.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9772	] ifFalse:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9773	self shouldImplement.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9774	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9775	] ifFalse:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9776	r := (layout rectangleRelativeTo:(superView viewRectangle)
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9777	preferred:[self preferredBounds]).
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9778	org := r origin rounded.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9779	ext := r extent rounded.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9780	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9781	self pixelOrigin:org extent:ext.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9782	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9783	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9784	^ self.
151 8123ec03c52f . claus parents: 145 diff changeset	9785	].
8123ec03c52f . claus parents: 145 diff changeset	9786
140 0db355079dc4 . claus parents: 138 diff changeset	9787	"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	9788	"/ self extentChangedFlag ifTrue:[
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	9789	"/ self sizeChanged:nil.
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9790	"/ self extentChangedFlag:false
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	9791	"/ ].
140 0db355079dc4 . claus parents: 138 diff changeset	9792
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	9793	self originChangedFlag ifTrue:[
140 0db355079dc4 . claus parents: 138 diff changeset	9794	"/ org := self computeOrigin.
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9795	"/ self pixelOrigin:org.
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9796	originRule notNil ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9797	self pixelOrigin:self computeOrigin
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9798	] ifFalse:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9799	relativeOrigin notNil ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9800	self originFromRelativeOrigin:relativeOrigin
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9801	] ifFalse:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9802	shown ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9803	device moveWindow:self drawableId x:left y:top.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9804	] ifFalse:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9805	(left notNil and:[top notNil]) ifTrue:[
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9806	self pixelOrigin:left@top.
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9807	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9808	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9809	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9810	].
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9811	self originChangedFlag:false
140 0db355079dc4 . claus parents: 138 diff changeset	9812	]
890 f202a05da548 avoid sending sizeChanged: twice Claus Gittinger <cg@exept.de> parents: 867 diff changeset	9813
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9814	"Modified: / 18-06-1996 / 21:44:03 / cg"
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9815	"Modified: / 18-03-2017 / 00:32:44 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	9816	!
0db355079dc4 . claus parents: 138 diff changeset	9817
4853 86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	9818	forceResize
86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	9819	"force resizing - even if already done"
86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	9820
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	9821	self explicitExtent:false.
4853 86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	9822	self resize
86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	9823	!
86edbcfacc3b +forceResize Claus Gittinger <cg@exept.de> parents: 4834 diff changeset	9824
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9825	hide
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9826	"only useful with modal views: hide the view and return control
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9827	back to the suspended main view. Ignored for non-modal views."
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9828
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	9829	\|masterGroup\|
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9830
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9831	realized ifFalse:[^ self].
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	9832	(windowGroup notNil and:[windowGroup isModal]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9833	masterGroup := windowGroup previousGroup.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9834	windowGroup focusView:nil.
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	9835	].
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9836
90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9837	self unmap.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	9838	self flush.
1356 90756b9ce548 * empty log message * ca parents: 1354 diff changeset	9839
2579 774e6fb33dde checkin from browser Claus Gittinger <cg@exept.de> parents: 2576 diff changeset	9840	masterGroup notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9841	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9842	this is a kludge for IRIS and others which do not provide backingstore:
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9843	when we hide a modalbox (such as a searchbox) which covered
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9844	a scrollbar, the scrollbars bitblt-method will copy from the
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9845	not-yet redrawn area - effectively clearing the scroller.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9846	We need a short delay here, since at this time, the expose event has
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9847	not yet arrived.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9848	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9849	Delay waitForSeconds:0.05.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9850	masterGroup processExposeEvents
2576 96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	9851	].
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	9852
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	9853	"/ WindowGroup leaveSignal raise.
96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	9854	"/ "/ not reached
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9855	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9856
3087 9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	9857	hideForAction
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	9858	"for popUpMenu compatibility;
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	9859	this is invoked to hide a when it is going to perform its action
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	9860	(in contrast to the generic hide)."
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	9861
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	9862	^ self hide
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	9863	!
9d9e097b39ef grabbing cleaned up; ca parents: 3055 diff changeset	9864
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9865	hideRequest
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9866	"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	9867	ignored here."
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9868
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	9869	self isPopUpView ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9870	self hide
3439 f4f02e2c0af7 * empty log message * Claus Gittinger <cg@exept.de> parents: 3434 diff changeset	9871	].
393 3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9872	^ self
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9873	!
3504a0adbb2d use hideRequest to close via Escape key (allows redefinition); Claus Gittinger <cg@exept.de> parents: 385 diff changeset	9874
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9875	map
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9876	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9877	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	9878	views position on the screen.
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	9879	Notice:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9880	Actually, this method is only valid for topViews;
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	9881	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	9882
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9883	self mapAt:nil iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9884
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9885	"Modified: 24.7.1997 / 13:44:25 / cg"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9886	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9887
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9888	mapAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	9889	"make the view visible on the screen.
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9890	For topViews, if aPoint is nonNil, the view's origin is located there
2103 dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	9891	(unless you have a dictator as windowManager ;-)
dbe7a348084f do not forget minExtent/maxExtent in remap Claus Gittinger <cg@exept.de> parents: 2095 diff changeset	9892	Notice:
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9893	Actually, this method is only valid for topViews;
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9894	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	9895
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9896	self mapAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9897
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9898	"Modified: 24.7.1997 / 13:45:02 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9899	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9900
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9901	mapAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9902	"make the view visible on the screen.
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9903	For topViews, if aPoint is nonNil, the view's origin is located there
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9904	(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	9905	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	9906	Notice:
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9907	Actually, this method is only valid for topViews;
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9908	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	9909
1809 fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	9910	\|subs\|
fec93025e9e7 mapping trouble fixed (see mswindows scrollBar remap) Claus Gittinger <cg@exept.de> parents: 1808 diff changeset	9911
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9912	realized ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9913	self drawableId isNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9914	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9915	first time ?
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9916	yes, realize (implies a map)
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9917	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9918	self realizeKeepingGroup:false at:aPoint iconified:iconified
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9919	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9920	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9921	no, map only
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9922	"
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9923	realized := true.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9924	aPoint isNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9925	iconified ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9926	device
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9927	mapView:self id:self drawableId iconified:iconified
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9928	atX:nil y:nil
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9929	width:width height:height
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9930	minExtent:(self minExtent) maxExtent:(self maxExtent).
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9931	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9932	device mapWindow:self drawableId.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9933	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9934	] ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9935	left := aPoint x.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9936	top := aPoint y.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9937	device
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9938	mapView:self id:self drawableId iconified:iconified
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9939	atX:left y:top
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9940	width:width height:height
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9941	minExtent:(self minExtent) maxExtent:(self maxExtent).
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9942	].
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9943
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9944	"/
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9945	"/ implies that all realized subviews
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9946	"/ are now also mapped
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9947	"/
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9948	"/ not needed for topViews - the mapped event does exactly the same
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9949	"/ however, X does not generate mapped events for non-topViews
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9950	"/ when a view gets deiconified.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9951
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9952	superView notNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9953	(subs := self subViews) notNil ifTrue:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9954	subs do:[:v \|
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9955	v realized "shown" ifFalse:[
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9956	v mapped
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9957	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9958	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9959	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9960	]
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	9961	].
140 0db355079dc4 . claus parents: 138 diff changeset	9962	]
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	9963
7986 987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9964	"Created: / 24-07-1997 / 13:43:23 / cg"
987d14f396e7 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 7982 diff changeset	9965	"Modified: / 18-03-2017 / 00:07:24 / stefan"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9966	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9967
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9968	mapIconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9969	"make the view visible on the screen.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9970	For topViews, the view is created in iconified state"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9971
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9972	self mapAt:nil iconified:true
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9973
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9974	"Modified: 24.7.1997 / 13:44:25 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	9975	"Created: 24.7.1997 / 13:47:03 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	9976	!
0db355079dc4 . claus parents: 138 diff changeset	9977
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9978	physicalCreate
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	9979	"common code for create & recreate:
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9980	physically create (but do not map) the view on the device."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9981
3642 400ffe15bba9 remove unused vars Stefan Vogel <sv@exept.de> parents: 3640 diff changeset	9982	\|sv isInputOnly\|
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	9983
6229 5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	9984	sv := superView isNil ifTrue:[nil] ifFalse:[superView view].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	9985
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	9986	"/ give global eventListeners a chance to intercept windowCreation
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	9987	"/ 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	9988	WindowSensor preViewCreateNotification:self.
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	9989
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	9990	isInputOnly := self isInputOnly.
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	9991
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	9992	gc
6229 5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	9993	createWindowFor:self
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	9994	type:(self windowType)
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	9995	origin:(left @ top)
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	9996	extent:(width @ height)
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	9997	minExtent:nil
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	9998	maxExtent:nil
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	9999	borderWidth:0 "self borderWidth"
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	10000	subViewOf:sv
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	10001	style:(self windowStyle)
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	10002	inputOnly:isInputOnly
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	10003	label:nil
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	10004	owner:nil
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	10005	icon:nil iconMask:nil
5428c16b92f2 class: SimpleView Stefan Vogel <sv@exept.de> parents: 6218 diff changeset	10006	iconView:nil.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10007
3010 ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	10008	"/ if there is a global eventListener,
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	10009	"/ give it a chance to track views
ea1a075505b4 Let #waitUntilVisible processExposeEvents Stefan Vogel <sv@exept.de> parents: 3008 diff changeset	10010
3008 81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	10011	"/ give global listeners a chance to track views
81987f198808 let WindowSensor perform the preViewCreation/postViewCreation Claus Gittinger <cg@exept.de> parents: 3007 diff changeset	10012	WindowSensor postViewCreateNotification:self.
1716 d6bf8f0deb18 added werners eventListener hook for view creation Claus Gittinger <cg@exept.de> parents: 1713 diff changeset	10013
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	10014	self originChangedFlag:false extentChangedFlag:false.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10015
5390 9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	10016	"/ (borderColor notNil and:[borderColor ~= Black]) ifTrue:[
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	10017	"/ isInputOnly ifFalse:[
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	10018	"/ self setBorderColor
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	10019	"/ ]
9509eceb1348 no more direct accesses to borderWidth and borderColor Claus Gittinger <cg@exept.de> parents: 5366 diff changeset	10020	"/ ].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10021	(viewGravity notNil "and:[viewGravity ~~ #NorthWest]") ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10022	gc viewGravity:viewGravity.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10023	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10024	(bitGravity notNil "and:[bitGravity ~~ #NorthWest]") ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10025	isInputOnly ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10026	gc bitGravity:bitGravity.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10027	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10028	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10029	viewShape notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10030	self setViewShape
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10031	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10032	(backed notNil and:[backed ~~ false]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10033	self backingStore:backed.
3152 b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10034	].
b64eeb833f5b added flag bits; Claus Gittinger <cg@exept.de> parents: 3150 diff changeset	10035	self saveUnder ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10036	self saveUnder:true.
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	10037	].
1960 aa9ef6e21f15 * empty log message * Claus Gittinger <cg@exept.de> parents: 1943 diff changeset	10038	cursor notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10039	self setCursor
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	10040	].
8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	10041
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	10042	name notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10043	self windowName:name.
5557 9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	10044	].
9028b831a288 set window name Claus Gittinger <cg@exept.de> parents: 5555 diff changeset	10045
2088 8e40159a7913 checkin from browser Claus Gittinger <cg@exept.de> parents: 2084 diff changeset	10046	"Modified: / 9.4.1998 / 20:18:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10047	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10048
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10049	postRealize
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10050	"invoked after a view was realized.
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10051	Can be redefined in subclasses to perform delayed actions."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10052
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10053	"/ nothing done here
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10054
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10055	"Created: 24.7.1997 / 14:35:36 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10056	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10057
4126 34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10058	preRealize
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10059	"invoked right before a view is realized.
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10060	Can be redefined in subclasses to perform delayed actions."
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10061
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10062	"/ nothing done here
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10063
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10064	"Created: 24.7.1997 / 14:35:36 / cg"
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10065	!
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10066
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10067	realize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10068	"realize - make visible;
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10069	realizing is done very late (after layout is fixed) to avoid
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10070	visible rearranging of windows on the screen"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10071
7094 349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	10072	self isBeingDestroyed:false. "/ in case a view gets rerealized
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10073	self realizeKeepingGroup:false at:nil iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10074
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10075	"Modified: 24.7.1997 / 13:14:28 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10076	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10077
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10078	realizeAllSubViews
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	10079	"realize all my subviews - but not myself."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10080
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10081	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10082	subViews do:[:subView \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10083	subView realize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10084	]
792 177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	10085	].
177cfa66f2b8 prepare for components & non-view as superView Claus Gittinger <cg@exept.de> parents: 791 diff changeset	10086	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10087	components do:[:component \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10088	component realize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10089	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10090	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10091
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10092	"Modified: 5.9.1995 / 23:30:47 / claus"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	10093	"Modified: 13.1.1997 / 21:25:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10094	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10095
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10096	realizeAt:aPoint
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10097	"realize - make visible;
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10098	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	10099	visible rearranging of windows on the screen"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10100
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10101	self realizeKeepingGroup:false at:aPoint iconified:false
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10102
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10103	"Modified: 24.7.1997 / 13:14:28 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10104	"Created: 24.7.1997 / 13:21:04 / cg"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10105	!
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10106
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10107	realizeInGroup
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10108	"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	10109	This allows a view to be realized in any windowgroup;
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10110	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	10111	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	10112
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10113	windowGroup isForModalSubview:true.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10114
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10115	self realizeKeepingGroup:true at:nil iconified:false
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10116
8001 5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10117	"Modified: / 20-08-1997 / 14:56:20 / cg"
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10118	"Modified (comment): / 10-04-2017 / 21:27:26 / cg"
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10119	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10120
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10121	realizeKeepingGroup:keepGroupAsIs at:position iconified:iconified
151 8123ec03c52f . claus parents: 145 diff changeset	10122	"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	10123	Create the view; if the keepGroupAsIs argument is not true,
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10124	assign my windowGroup."
140 0db355079dc4 . claus parents: 138 diff changeset	10125
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10126	\|superGroup groupChange keep\|
140 0db355079dc4 . claus parents: 138 diff changeset	10127
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10128	"/ fetch device colors, to avoid reallocation at redraw time
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10129	self fetchDeviceResources.
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10130
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10131	self drawableId isNil ifTrue:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10132	self create.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10133	self drawableId isNil ifTrue:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10134	('SimpleView [warning]: could not create view: ' , self class name) errorPrintCR.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10135	^ self
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10136	]
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	10137	].
140 0db355079dc4 . claus parents: 138 diff changeset	10138
7094 349ae278b4f7 #FEATURE Claus Gittinger <cg@exept.de> parents: 7081 diff changeset	10139	self isBeingDestroyed:false. "/ in case a view gets rerealized
372 78e5b6e96649 * empty log message * Claus Gittinger <cg@exept.de> parents: 371 diff changeset	10140	groupChange := false.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10141
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10142	(windowGroup notNil
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10143	and:[superView isNil
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	10144	and:[windowGroup isForModalSubview]]) ifTrue:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10145	keep := true.
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10146	] ifFalse:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10147	keep := keepGroupAsIs
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10148	].
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10149
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	10150	keep ifFalse:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10151	"
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10152	put myself into superviews windowgroup if there is a superview
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10153	This is the default behavior, which may be suppressed by
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10154	passing true as keepGroupAsIs-argument.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10155	(it may be useful to assign a separate windowGroup to
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10156	a childView to have it execute independent of the parent
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10157	-> an example is found in the fileBrowsers kill-button)
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10158	"
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10159	superView notNil ifTrue:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10160	superGroup := superView windowGroup.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10161	(windowGroup notNil and:[superGroup ~~ windowGroup]) ifTrue:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10162	"
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10163	mhmh - seems that the windowgroup has changed ....
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10164	"
145 ac7088b0aee5 . claus parents: 144 diff changeset	10165	"/ 'oops - wgroup change on realize' printNL.
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10166	groupChange := true.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10167
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10168	"/
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10169	"/ recursively change the windowGroup of
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10170	"/ myself and all of my children
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10171	"/
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10172	self windowGroup:superGroup.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10173	] ifFalse:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10174	windowGroup isNil ifTrue:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10175	"/
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10176	"/ only change the group of myself -
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10177	"/ subviews will fetch it when realized.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10178	"/
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10179	windowGroup := superGroup.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10180	superGroup notNil ifTrue:[superGroup addView:self].
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10181	]
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10182	].
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10183	].
140 0db355079dc4 . claus parents: 138 diff changeset	10184	].
0db355079dc4 . claus parents: 138 diff changeset	10185
3375 08b67e29a66e * empty log message * Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	10186	(self originOrExtentChanged) ifTrue:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10187	self fixSize.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10188	self sizeChanged:nil.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10189	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10190	position notNil ifTrue:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10191	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	10192	].
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	10193
ef2ded1798df Send #realize to subviews even if hiddenOnRealize is set for myself. Stefan Vogel <sv@exept.de> parents: 1038 diff changeset	10194	(subViews notNil or:[components notNil]) ifTrue:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10195	(realized not or:[groupChange]) ifTrue:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10196	self isHiddenOnRealize ifFalse:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10197	self realizeAllSubViews.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10198	].
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10199	].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10200	].
1874 a46a8c065050 recursively change the windowGroup of all children, Claus Gittinger <cg@exept.de> parents: 1860 diff changeset	10201
4126 34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10202	self preRealize.
34e3c660a5b2 preRealize hook Claus Gittinger <cg@exept.de> parents: 4123 diff changeset	10203
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10204	iconified ifTrue:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10205	realized ifFalse:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10206	self mapIconified
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10207	]
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	10208	] ifFalse:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10209	self isHiddenOnRealize ifFalse:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10210	self setInnerClip.
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10211
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10212	realized ifFalse:[
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10213	"
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10214	now, make the view visible
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10215	"
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10216	self mapAt:position
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10217	]
c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10218	]
140 0db355079dc4 . claus parents: 138 diff changeset	10219	].
0db355079dc4 . claus parents: 138 diff changeset	10220
0db355079dc4 . claus parents: 138 diff changeset	10221	controller notNil ifTrue:[
7622 c75552e285e5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7618 diff changeset	10222	controller startUp
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10223	].
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10224
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	10225	self postRealize
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10226
2189 86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	10227	"Modified: / 23.8.1996 / 15:07:16 / stefan"
86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	10228	"Created: / 24.7.1997 / 13:10:17 / cg"
86284985c4c0 care for non-creatable views. Claus Gittinger <cg@exept.de> parents: 2174 diff changeset	10229	"Modified: / 27.7.1998 / 20:01:02 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	10230	!
0db355079dc4 . claus parents: 138 diff changeset	10231
0db355079dc4 . claus parents: 138 diff changeset	10232	recreate
3301 1bcebb26ecbb * empty log message * Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	10233	"recreate (i.e. tell X about me) after a snapin or a migration"
140 0db355079dc4 . claus parents: 138 diff changeset	10234
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10235	self drawableId isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10236	super recreate.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10237	self physicalCreate.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10238
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10239	viewBackground notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10240	self setViewBackground
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10241	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10242
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10243	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10244	XXX has to be changed: eventmasks are device specific -
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10245	XXX will not allow restart on another Workstation-type.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10246	XXX event masks must become symbolic
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10247	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10248	eventMask isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10249	eventMask := device defaultEventMask
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10250	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10251	device setEventMask:eventMask in:self drawableId
140 0db355079dc4 . claus parents: 138 diff changeset	10252	]
0db355079dc4 . claus parents: 138 diff changeset	10253	!
0db355079dc4 . claus parents: 138 diff changeset	10254
6863 48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10255	recursiveRealizeAllSubViews
48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10256	"realize all my subviews and all of their subviews - but not myself."
48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10257
48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10258	subViews notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10259	subViews do:[:subView \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10260	subView realize.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10261	subView recursiveRealizeAllSubViews.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10262	]
6863 48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10263	].
48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10264	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10265	components do:[:component \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10266	component realize.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10267	component recursiveRealizeAllSubViews.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10268	]
6863 48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10269	].
48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10270	!
48127be3e1be class: SimpleView Claus Gittinger <cg@exept.de> parents: 6856 diff changeset	10271
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10272	remap
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10273	"make the view visible on the screen at its previous position.
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10274	In contrast to map, this asks the windowManager to show the view
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10275	immediately (instead of asking for a frame). However, some windowManagers
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10276	are known to ignore this ..."
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10277
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10278	realized ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10279	self drawableId isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10280	self realize
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10281	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10282	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10283	now, make the view visible
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10284	"
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10285	realized := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10286	device
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10287	mapView:self id:self drawableId iconified:false
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10288	atX:left y:top width:width height:height
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10289	minExtent:(self minExtent) maxExtent:(self maxExtent)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10290	]
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10291	]
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10292
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10293	"Created: 8.5.1996 / 09:33:06 / cg"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	10294	"Modified: 25.2.1997 / 22:44:33 / cg"
654 921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10295	!
921c156962fa added #remap Claus Gittinger <cg@exept.de> parents: 646 diff changeset	10296
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	10297	rerealize
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	10298	"rerealize at old position in (a possibly different) windowGroup."
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	10299
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	10300	self fetchDeviceResources.
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	10301
341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	10302	self rerealizeInGroup:windowGroup.
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	10303
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	10304	"Created: 7.11.1996 / 16:27:09 / cg"
1193 341a4265f5d6 added #fetchDeviceResources, Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	10305	"Modified: 13.1.1997 / 21:53:18 / cg"
1109 3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	10306	!
3b9d9cc6e639 readded rerealize Claus Gittinger <cg@exept.de> parents: 1101 diff changeset	10307
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10308	rerealizeInGroup:aWindowGroup
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10309	"rerealize at old position in (a possibly different) windowGroup."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10310
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10311	self drawableId isNil ifTrue:[self create].
8001 5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10312
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10313	self drawableId notNil ifTrue:[
8001 5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10314	aWindowGroup ~~ windowGroup ifTrue:[
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10315	windowGroup notNil ifTrue:[
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10316	windowGroup removeView:self
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10317	].
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10318	windowGroup := aWindowGroup.
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10319	aWindowGroup addTopView:self.
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10320	].
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10321	self remap.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10322	]
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	10323
8001 5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10324	"Modified: / 03-05-1996 / 23:59:30 / stefan"
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10325	"Modified: / 28-07-1997 / 18:53:01 / cg"
5acf4831dba3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7988 diff changeset	10326	"Modified (format): / 10-04-2017 / 21:27:08 / cg"
140 0db355079dc4 . claus parents: 138 diff changeset	10327	!
0db355079dc4 . claus parents: 138 diff changeset	10328
0db355079dc4 . claus parents: 138 diff changeset	10329	rerealizeWithAllSubViews
0db355079dc4 . claus parents: 138 diff changeset	10330	"rerealize myself with all subviews"
0db355079dc4 . claus parents: 138 diff changeset	10331
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10332	self drawableId notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10333	realized := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10334	self realizeAllSubViews.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10335	superView isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10336	device
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10337	mapView:self id:self drawableId iconified:false
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10338	atX:left y:top width:width height:height
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10339	minExtent:(self minExtent) maxExtent:(self maxExtent)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10340	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10341	device
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10342	mapWindow:self drawableId
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10343	].
140 0db355079dc4 . claus parents: 138 diff changeset	10344	]
1290 1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	10345
1cc24cff6fe9 eliminated some references to subViews instance variable (will vanish) Claus Gittinger <cg@exept.de> parents: 1261 diff changeset	10346	"Modified: 28.1.1997 / 17:59:28 / cg"
180 0b3a8658d55e . claus parents: 176 diff changeset	10347	!
0b3a8658d55e . claus parents: 176 diff changeset	10348
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10349	resize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10350	"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	10351	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	10352	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	10353
4899 5d9393ff0aae use accessors for hiddenOnRealize and explicitExtents; Claus Gittinger <cg@exept.de> parents: 4898 diff changeset	10354	self hasExplicitExtent ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10355	layout isNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10356	self extent:(self preferredExtent).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10357	self explicitExtent:false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10358	].
947 e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	10359	]
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	10360
e8ff54bc0309 remember an explicit change of the extent; Claus Gittinger <cg@exept.de> parents: 946 diff changeset	10361	"Modified: 15.7.1996 / 11:20:27 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10362	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10363
6126 5cc385c35406 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6121 diff changeset	10364	setForegroundWindow
5cc385c35406 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6121 diff changeset	10365	"noop for protocol compatibility with TopViews (in case you do a Button new open)"
5cc385c35406 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6121 diff changeset	10366
5cc385c35406 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6121 diff changeset	10367	"Created: / 17-09-2010 / 16:30:24 / cg"
5cc385c35406 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6121 diff changeset	10368	"Modified: / 17-09-2010 / 18:39:35 / cg"
5cc385c35406 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6121 diff changeset	10369	!
5cc385c35406 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6121 diff changeset	10370
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10371	unmap
2576 96944b0cf18c comment; Claus Gittinger <cg@exept.de> parents: 2573 diff changeset	10372	"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	10373
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10374	realized ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10375	realized := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10376	self drawableId notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10377	device unmapWindow:self drawableId.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10378
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10379	"/ make it go away immediately
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10380	"/ (this hides the subview killing)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10381	self flush.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10382	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10383
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10384	"/ Normally, this is not correct with X, where the
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10385	"/ unmap is an asynchronous operation.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10386	"/ (shown is cleared also in unmapped event)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10387	"/ Do it anyway, to avoid synchronisation problems.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10388
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10389	shown ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10390	shown := false.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10391	dependents notNil ifTrue:[ self changed:#visibility ].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10392	]
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10393	].
190 4c49bdd5b80f . claus parents: 189 diff changeset	10394
4c49bdd5b80f . claus parents: 189 diff changeset	10395	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10396	\|top sub\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10397
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10398	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10399	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10400
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10401	sub := View
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10402	origin:0.2@0.2
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10403	corner:0.8@0.8
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10404	in:top.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10405
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10406	sub viewBackground:Color red.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10407	sub hiddenOnRealize:true.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10408
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10409	top open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10410	(Delay forSeconds:5) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10411	sub map.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10412	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10413	sub unmap.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10414	sub viewBackground:(Color green).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10415	(Delay forSeconds:3) wait.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10416	sub map.
151 8123ec03c52f . claus parents: 145 diff changeset	10417	"
1379 bd55ede48c37 comments Claus Gittinger <cg@exept.de> parents: 1363 diff changeset	10418
2465 193a96bd94d7 clear shown when unmapped notification arrives Claus Gittinger <cg@exept.de> parents: 2454 diff changeset	10419	"Modified: / 22.2.1999 / 20:10:58 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10420	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10421
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10422	unrealize
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10423	"alias for unmap, for historic reasons"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10424
3434 f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	10425	<resource:#obsolete>
f76f82ce8f28 Use <resource:#obsolete> Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	10426
4464 58adfdb1f1d2 * empty log message * Claus Gittinger <cg@exept.de> parents: 4463 diff changeset	10427	self obsoleteMethodWarning:'use #unmap'.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10428	self unmap.
646 0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	10429
0d2886a9ae38 Rename unrealize-->unmap, rerealize-->map. Stefan Vogel <sv@exept.de> parents: 640 diff changeset	10430	"Modified: 4.5.1996 / 00:07:48 / stefan"
151 8123ec03c52f . claus parents: 145 diff changeset	10431	! !
8123ec03c52f . claus parents: 145 diff changeset	10432
8123ec03c52f . claus parents: 145 diff changeset	10433	!SimpleView methodsFor:'redrawing'!
8123ec03c52f . claus parents: 145 diff changeset	10434
5263 654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	10435	clearExposedAreaInRedraw
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	10436	"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	10437	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	10438
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	10439	^ true
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	10440	!
654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	10441
6644 c6c4686b4979 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	10442	drawFocusFrame
c6c4686b4979 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	10443	self hasFocus ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10444	(styleSheet at:#focusHighlightStyle) == #win95 ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10445	self windowGroup focusCameByTab ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10446	self drawWin95FocusFrame
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10447	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10448	].
6644 c6c4686b4979 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	10449	]
c6c4686b4979 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	10450	!
c6c4686b4979 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6643 diff changeset	10451
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10452	flash
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10453	"flash the view - fill it black, then white, finally
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10454	redraw completely.
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10455	Can be used to wakeup the user :-)
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10456	when problem or warning conditions arise.
2174 dea03b88b1d1 checkin from browser Claus Gittinger <cg@exept.de> parents: 2173 diff changeset	10457	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	10458
6386 d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10459	self flash:nil
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10460
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10461	"
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10462	\|v\|
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10463
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10464	v := View new openAndWait.
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10465	Delay waitForSeconds:2.
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10466	v flash.
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10467	Delay waitForSeconds:2.
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10468	v destroy
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10469	"
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10470
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10471	"Modified: / 16.7.1998 / 18:46:48 / cg"
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10472	!
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10473
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10474	flash:messageOrNil
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10475	"flash the view - fill it black, then white, finally
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10476	redraw completely.
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10477	Can be used to wakeup the user :-)
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10478	when problem or warning conditions arise.
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10479	Someone may redefine this to flash its contents (instead of black/white)."
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10480
6906 f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10481	self flash:messageOrNil withColor:self blackColor.
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10482
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10483	"
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10484	\|v\|
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10485
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10486	v := View new openAndWait.
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10487	Delay waitForSeconds:2.
6907 94dbd3782c96 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6906 diff changeset	10488	v flash:'Hello World'.
6906 f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10489	Delay waitForSeconds:2.
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10490	v destroy
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10491	"
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10492	!
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10493
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10494	flash:messageOrNil withColor:flashColor
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10495	"flash the view - fill it black, then white, finally
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10496	redraw completely.
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10497	Can be used to wakeup the user :-)
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10498	when problem or warning conditions arise.
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10499	Someone may redefine this to flash its contents (instead of black/white)."
f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10500
7793 44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10501	shown ifFalse:[^ self].
44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10502
6906 f032cb9bedd3 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6880 diff changeset	10503	self fill:flashColor.
6386 d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10504	messageOrNil notNil ifTrue:[
7793 44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10505	gc withForeground:self whiteColor do:[
44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10506	self displayString:messageOrNil centeredAt:(self center).
44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10507	].
6386 d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10508	].
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10509	Delay waitForSeconds:0.1.
7793 44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10510	shown ifFalse:[^ self].
44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10511
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10512	self fill:self whiteColor.
6604 5bf53c022613 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6593 diff changeset	10513	messageOrNil notNil ifTrue:[
7793 44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10514	gc withForeground:self blackColor do:[
44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10515	self displayString:messageOrNil centeredAt:(self center).
44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10516	].
6604 5bf53c022613 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6593 diff changeset	10517	].
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10518	Delay waitForSeconds:0.1.
7793 44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10519	shown ifFalse:[^ self].
44d58dad99d8 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 7790 diff changeset	10520
2173 0686e9f35817 flash fix Claus Gittinger <cg@exept.de> parents: 2171 diff changeset	10521	self fill:viewBackground.
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10522	self invalidate
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10523
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10524	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10525	\|v\|
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10526
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10527	v := View new openAndWait.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10528	Delay waitForSeconds:2.
6907 94dbd3782c96 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6906 diff changeset	10529	v flash:'Hello World' withColor:Color red.
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10530	Delay waitForSeconds:2.
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10531	v destroy
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10532	"
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10533
2174 dea03b88b1d1 checkin from browser Claus Gittinger <cg@exept.de> parents: 2173 diff changeset	10534	"Modified: / 16.7.1998 / 18:46:48 / cg"
765 f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10535	!
f6c9c653e03f removed useless superViewMapped/superViewUnmapped messages Claus Gittinger <cg@exept.de> parents: 763 diff changeset	10536
6386 d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10537	flashReadOnly
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10538	"flash the view and show 'Read Only' for a moment."
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10539
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10540	self flash:(resources string:'Read Only')
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10541	!
d85150e57a43 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6341 diff changeset	10542
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10543	invalidate
7232 316a6bdc26a7 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	10544	"add a damage to redraw the receiver to its input event queue.
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10545	This is preferable to calling redraw directly, in that the drawing is done by
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10546	the view's 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	10547	multiple damage rectangles into single redraws.
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10548	However, be aware, that the redrawing may be delayed for some time,
7232 316a6bdc26a7 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	10549	until the receiver's windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10550
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10551	shown ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10552	"/ no need to add damage - will get a full-redraw anyway,
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10553	"/ when I will be shown again.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10554	^ self
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10555	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10556	self
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10557	invalidateDeviceRectangle:(Rectangle left:0 top:0 width:width height:height)
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10558	repairNow:false
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	10559
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	10560	"Modified: / 9.11.1998 / 21:04:16 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10561	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10562
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10563	invalidate:aRectangle
7232 316a6bdc26a7 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	10564	"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	10565	This is preferable to calling redraw directly,
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10566	in that the drawing is done by the view's process itself,
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10567	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	10568	single redraws.
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10569	However, be aware, that the redrawing may be delayed for some time,
7232 316a6bdc26a7 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	10570	intil the receiver's windowGroupProcess gets rescheduled."
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10571
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10572	shown ifFalse:[
7692 17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10573	"/ no need to add damage - will get a full-redraw anyway,
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10574	"/ when I will be shown again.
17ded3df79d8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7690 diff changeset	10575	^ self
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10576	].
2394 cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	10577	self invalidate:aRectangle repairNow:false
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	10578
cfb6434f1a9c oops - invalidate must add deviceRectangles to the damage-list. Claus Gittinger <cg@exept.de> parents: 2382 diff changeset	10579	"Modified: / 9.11.1998 / 21:03:14 / cg"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10580	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10581
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10582	invalidate:aRectangle repairNow:doRepairNow
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10583	"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	10584	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	10585	damaged areas right now.
c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	10586	The given rectangle is in logical coordinate space."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10587
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10588	\|r currentTransformation\|
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	10589
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10590	shown ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10591	"/ no need to add damage - will get a full-redraw anyway,
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10592	"/ when I will be shown again.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10593	^ self
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10594	].
622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10595
3856 45fccc92d834 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 3838 diff changeset	10596	r := aRectangle.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10597	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10598	currentTransformation notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10599	r := (currentTransformation transformPoint:r origin) corner:(currentTransformation transformPoint:r corner).
4971 d69d04717240 cleaup Claus Gittinger <cg@exept.de> parents: 4970 diff changeset	10600	].
4993 bf54a6128b78 oops - invalidate:repairNow: did not care for transformation ! Claus Gittinger <cg@exept.de> parents: 4990 diff changeset	10601	self invalidateDeviceRectangle:r repairNow:doRepairNow
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10602
6748 df14278f29bc bugfix: invalid transformation az parents: 6720 diff changeset	10603	"Modified: / 10-11-1998 / 01:55:03 / cg"
df14278f29bc bugfix: invalid transformation az parents: 6720 diff changeset	10604	"Modified: / 22-01-2015 / 14:23:09 / az"
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10605	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10606
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10607	invalidateDeviceRectangle:aRectangle repairNow:doRepairNow
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	10608	"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	10609	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	10610	damaged areas right now.
c6d3bc32f50a comments Claus Gittinger <cg@exept.de> parents: 2450 diff changeset	10611	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	10612
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10613	shown ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10614	"/ no need to add damage - will get a full-redraw anyway,
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10615	"/ when I will be shown again.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10616	^ self
6549 4832802aba27 class: SimpleView ca parents: 6546 diff changeset	10617	].
4832802aba27 class: SimpleView ca parents: 6546 diff changeset	10618	(aRectangle width <= 0 or:[aRectangle height <= 0]) ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10619	"/ no need to add damages with extent <= 0
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10620	^ self
6549 4832802aba27 class: SimpleView ca parents: 6546 diff changeset	10621	].
4049 0a306121ef88 code cleanup Claus Gittinger <cg@exept.de> parents: 4047 diff changeset	10622	self sensor addDamage:aRectangle view:self.
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10623	doRepairNow ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10624	self repairDamage
2396 da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	10625	]
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	10626
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	10627	"Modified: / 10.11.1998 / 01:55:03 / cg"
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	10628	"Created: / 10.11.1998 / 19:02:01 / cg"
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	10629	!
da3125ce46f1 oops - must invalidate deviceRectangle in scroll. Claus Gittinger <cg@exept.de> parents: 2395 diff changeset	10630
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10631	invalidateRepairNow:doRepair
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10632	"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	10633	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	10634	damaged areas right now."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10635
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10636	shown ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10637	"/ no need to add damage - will get a full-redraw anyway,
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10638	"/ when I will be shown again.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10639	^ self
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10640	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10641	self
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10642	invalidateDeviceRectangle:(Rectangle left:0 top:0 width:width height:height)
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10643	repairNow:doRepair
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10644
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10645	"Created: 19.4.1997 / 11:58:04 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10646	"Modified: 19.4.1997 / 12:00:00 / cg"
718 4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10647	!
4ff126c012b5 added #invalidate / #invalidate: Claus Gittinger <cg@exept.de> parents: 714 diff changeset	10648
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10649	invalidateX:x y:y width:w height:h
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10650	"add a damage to redraw all of the receiver, to its input event queue."
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10651
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10652	shown ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10653	"/ no need to add damage - will get a full-redraw anyway,
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10654	"/ when I will be shown again.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10655	^ self
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10656	].
0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10657	self invalidate:(Rectangle left:x top:y width:w height:h)
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10658	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10659
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10660	invalidateX:x y:y width:w height:h repairNow:doRepair
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10661	"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	10662	and (if repairNow is true), force the receiver to repair all of its
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10663	damaged areas right now."
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10664
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10665	shown ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10666	"/ no need to add damage - will get a full-redraw anyway,
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10667	"/ when I will be shown again.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10668	^ self
4047 622d06eca488 invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 4038 diff changeset	10669	].
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10670	self invalidate:(Rectangle left:x top:y width:w height:h) repairNow:doRepair
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10671	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	10672
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10673	redraw
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	10674	"redraw myself completely - this is sent by redrawX:y:width:height:
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	10675	as a fallback.
7663 4c01465c9f75 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7638 diff changeset	10676	Cannot do much here - is redefined in subclasses which don't care for
782 51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	10677	updating regions but instead update everything."
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	10678
51c03bc803ce checkin from browser Claus Gittinger <cg@exept.de> parents: 779 diff changeset	10679	"Modified: 29.5.1996 / 18:02:52 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10680	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10681
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10682	redraw:aRectangle
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10683	"redraw a part of the view immediately."
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10684
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10685	self
7778 b88c63d76636 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 7747 diff changeset	10686	redrawX:(aRectangle left) y:(aRectangle top)
b88c63d76636 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 7747 diff changeset	10687	width:(aRectangle width) height:(aRectangle height)
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10688
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10689	"Modified: 19.4.1997 / 11:54:23 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10690	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10691
5250 59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	10692	redrawComponentsIn:aRectangle
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	10693	components notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10694	components do:[:aComponent \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10695	\|thisFrame is\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10696
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10697	thisFrame := aComponent bounds.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10698	(thisFrame notNil and:[thisFrame intersects:aRectangle]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10699	aComponent displayOn:self
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10700	]
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10701	]
5250 59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	10702	].
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	10703	!
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	10704
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10705	redrawDeviceX:x y:y width:w height:h
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10706	"have to redraw part of the view.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10707	The coordinates are in device space - if there is a transformation,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10708	must inverse-transform back to logical coordinates. (since the view thinks
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10709	in its coordinate space)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10710
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10711	\|lx ly lw lh currentTransformation\|
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10712
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10713	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10714	currentTransformation isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10715	lx := x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10716	ly := y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10717	lw := w.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10718	lh := h.
2822 b95545cef407 checkin from browser Claus Gittinger <cg@exept.de> parents: 2821 diff changeset	10719	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10720	lx := currentTransformation applyInverseToX:x.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10721	ly := currentTransformation applyInverseToY:y.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10722	lw := currentTransformation applyInverseScaleX:w.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10723	lh := currentTransformation applyInverseScaleY:h.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10724	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10725	self redrawX:lx y:ly width:lw height:lh
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10726	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10727
151 8123ec03c52f . claus parents: 145 diff changeset	10728	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	10729	"redraw part of myself immediately, given logical coordinates
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10730	(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	10731	The default here is to redraw everything
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10732	- subclasses usually redefine this, adding more intelligence"
151 8123ec03c52f . claus parents: 145 diff changeset	10733
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	10734	\|area oldClip\|
151 8123ec03c52f . claus parents: 145 diff changeset	10735
8123ec03c52f . claus parents: 145 diff changeset	10736	shown ifFalse:[^ self].
8123ec03c52f . claus parents: 145 diff changeset	10737
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10738	area := Rectangle left:x top:y width:w height:h.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10739	oldClip := gc clippingBoundsOrNil.
7465 8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	10740	self clippingBounds:area.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	10741
5263 654f1779f5ed changed redraw to always clear the exposed area, unless Claus Gittinger <cg@exept.de> parents: 5262 diff changeset	10742	self clearExposedAreaInRedraw ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10743	self clearRectangleX:x y:y width:w height:h.
5542 273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10744	].
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10745
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10746	self renderOrRedraw.
5250 59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	10747
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	10748	"/ draw them afterwards - they can be used to replace heavy-weight views.
59bd3d76efc5 component handling Claus Gittinger <cg@exept.de> parents: 5245 diff changeset	10749	self redrawComponentsIn:area.
7465 8409368bbfe6 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 7429 diff changeset	10750	self clippingBounds:oldClip.
738 cea442005997 checkin from browser Claus Gittinger <cg@exept.de> parents: 737 diff changeset	10751
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10752	"Modified: 19.4.1997 / 11:55:08 / cg"
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10753	!
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10754
5542 273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10755	renderOrRedraw
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10756	renderer notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10757	"/ experimental feature
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10758	thisContext isRecursive ifTrue:[self halt].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10759	renderer render:self on:self at:0@0
5542 273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10760	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10761	"/ redraw everything - a fallBack for lazy views.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10762	self redraw.
5542 273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10763	].
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10764	!
273bf2233a67 plug for renderer Claus Gittinger <cg@exept.de> parents: 5530 diff changeset	10765
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10766	repairDamage
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	10767	"force the receiver to repair all of its
2095 7aaac9675f97 checkin from browser ca parents: 2094 diff changeset	10768	damaged areas right now."
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10769
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10770	\|wg\|
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10771
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10772	shown ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10773	(wg := self windowGroup) notNil ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10774	"/ wg processRealExposeEventsFor:self. "/ this ignores map/unmap
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10775	wg processExposeEventsFor:self. "/ this handles map/unmap
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10776	]
1615 24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10777	]
24950d99a5c2 added #repairDamage & invalidate-with-repair Claus Gittinger <cg@exept.de> parents: 1614 diff changeset	10778
2138 1800e9b5afe3 also handle map/unmap events in repairDamage. Claus Gittinger <cg@exept.de> parents: 2130 diff changeset	10779	"Created: / 19.4.1997 / 12:01:13 / cg"
2406 8f6f579901ac checkin from browser Claus Gittinger <cg@exept.de> parents: 2405 diff changeset	10780	"Modified: / 3.12.1998 / 14:02:06 / cg"
151 8123ec03c52f . claus parents: 145 diff changeset	10781	!
8123ec03c52f . claus parents: 145 diff changeset	10782
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10783	showActive
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10784	"redraw myself as active (i.e. busy).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10785	Nothing done here, but redefined in some classes."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10786
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10787	^ self
135 cf8e46015072 . claus parents: diff changeset	10788	!
cf8e46015072 . claus parents: diff changeset	10789
cf8e46015072 . claus parents: diff changeset	10790	showPassive
cf8e46015072 . claus parents: diff changeset	10791	"redraw myself as inactive (i.e. nonbusy).
151 8123ec03c52f . claus parents: 145 diff changeset	10792	Nothing done here, but redefined in some classes."
135 cf8e46015072 . claus parents: diff changeset	10793
cf8e46015072 . claus parents: diff changeset	10794	^ self
cf8e46015072 . claus parents: diff changeset	10795	! !
cf8e46015072 . claus parents: diff changeset	10796
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10797	!SimpleView methodsFor:'scrolling'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10798
2559 6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10799	halfPageDown
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10800	"scroll down half a page
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10801	"
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10802	self scrollDown:(self innerHeight // 2)
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10803
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10804
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10805	!
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10806
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10807	halfPageUp
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10808	"scroll up half a page
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10809	"
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10810	self scrollUp:(self innerHeight // 2)
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10811
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10812	!
6f5c5691475e halfPage scroll methods moved to SimpleView Claus Gittinger <cg@exept.de> parents: 2558 diff changeset	10813
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10814	horizontalScrollStep
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10815	"return the amount to scroll when stepping left/right.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10816	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10817
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	10818	^ (device horizontalPixelPerMillimeter * 20) asInteger
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10819	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10820
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10821	pageDown
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10822	self scrollDown:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10823
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10824	"Created: 13.9.1996 / 14:06:54 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10825	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10826
4964 b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10827	pageLeft
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10828	self scrollLeft:(self innerWidth)
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10829
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10830	"Created: 13.9.1996 / 14:06:54 / cg"
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10831	!
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10832
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10833	pageRight
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10834	self scrollRight:(self innerWidth)
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10835	!
b059a14ce764 Define #pageLeft and #pageRight Stefan Vogel <sv@exept.de> parents: 4958 diff changeset	10836
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10837	pageUp
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10838	self scrollUp:(self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10839
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10840	"Created: 13.9.1996 / 14:07:01 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10841	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10842
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10843	scrollDown
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10844	"scroll down by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10845	scroll-step down button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10846
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10847	self scrollDown:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10848	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10849
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10850	scrollDown:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10851	"change origin to scroll down some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10852
5572 0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10853	self scrollRelative:nPixels
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10854
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10855	"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	10856	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10857
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10858	scrollHorizontalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10859	"change origin to make aPixelOffset be the left col"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10860
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10861	\|orgY\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10862
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10863	orgY := self viewOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10864	^ self scrollTo:(aPixelOffset @ orgY).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10865
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10866	"Modified: 8.7.1996 / 15:34:54 / stefan"
140 0db355079dc4 . claus parents: 138 diff changeset	10867	!
0db355079dc4 . claus parents: 138 diff changeset	10868
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10869	scrollHorizontalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10870	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10871
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10872	\|wCont currentTransformation\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10873
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10874	wCont := self widthOfContents.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10875	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10876	currentTransformation notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10877	wCont := currentTransformation applyScaleX:wCont.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10878	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10879	self scrollHorizontalTo:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10880	((((wCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10881	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10882
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10883	scrollLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10884	"scroll left by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10885	scroll-step left button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10886
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10887	self scrollLeft:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10888	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10889
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10890	scrollLeft:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10891	"change origin to scroll left some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10892
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	10893	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	10894
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10895	nPixels ~~ 0 ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10896	viewOrigin := self viewOrigin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10897	self scrollTo:((viewOrigin x - nPixels) @ viewOrigin y).
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10898	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10899
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10900	"Modified: / 20.8.1996 / 17:35:09 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10901	"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	10902	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10903
5572 0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10904	scrollRelative:nPixels
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10905	"change origin to scroll up (nPixels < 0) or down (nPixels > 0)"
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10906
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10907	\|viewOrigin\|
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10908
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10909	nPixels ~~ 0 ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10910	viewOrigin := self viewOrigin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10911	self scrollTo:(viewOrigin x @ (viewOrigin y + nPixels))
5572 0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10912	]
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10913
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10914	"Modified: / 20-08-1996 / 17:34:36 / stefan"
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10915	"Created: / 18-07-2010 / 09:09:54 / cg"
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10916	!
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	10917
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10918	scrollRight
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10919	"scroll right by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10920	scroll-step right button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10921
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10922	self scrollRight:(self horizontalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10923	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10924
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10925	scrollRight:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10926	"change origin to scroll right some pixels"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10927
1035 261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	10928	\|viewOrigin\|
261c3ab854f0 Use #viewOrigin instead of translation transformation to get Stefan Vogel <sv@exept.de> parents: 1028 diff changeset	10929
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10930	nPixels ~~ 0 ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10931	viewOrigin := self viewOrigin.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10932	self scrollTo:((viewOrigin x + nPixels) @ viewOrigin y)
2703 cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10933	]
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10934
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10935	"Modified: / 20.8.1996 / 17:35:37 / stefan"
cfdad703743d * empty log message * Claus Gittinger <cg@exept.de> parents: 2702 diff changeset	10936	"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	10937	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10938
1052 c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10939	scrollToBottom
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10940	self scrollTo:0 @ (self heightOfContents - self innerHeight)
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10941
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10942	"Created: 13.9.1996 / 14:08:03 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10943	"Modified: 13.9.1996 / 14:09:32 / cg"
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10944	!
c7e31a453192 added default implementations for pageUp / pageDown Claus Gittinger <cg@exept.de> parents: 1048 diff changeset	10945
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10946	scrollToLeft
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10947	"move viewOrigin to the left"
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10948
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10949	self scrollHorizontalTo:0
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10950	!
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10951
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10952	scrollToPercent:originAsPercent
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10953	"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	10954
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10955	\|wCont hCont percent currentTransformation\|
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10956
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10957	percent := originAsPercent asPoint.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10958
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10959	wCont := self widthOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10960	hCont := self heightOfContents.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10961
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10962	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10963	currentTransformation notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10964	wCont := currentTransformation applyScaleX:wCont.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10965	hCont := currentTransformation applyScaleY:hCont.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10966	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10967	self scrollTo:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10968	((((wCont * percent x) / 100.0) + 0.5) asInteger) @
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10969	((((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	10970
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10971	"Created: 5.8.1996 / 12:15:53 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10972	"Modified: 5.8.1996 / 12:42:57 / stefan"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10973	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	10974
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10975	scrollToRight
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10976	"move viewOrigin to the right"
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10977
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10978	\|wCont currentTransformation\|
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10979
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10980	wCont := self widthOfContents.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10981	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	10982	currentTransformation notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	10983	wCont := currentTransformation applyScaleX:wCont.
2371 fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10984	].
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10985	self scrollHorizontalTo:((wCont - self innerWidth) max:0)
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10986	!
fafba97d401c added #scrollToLeft and #scrollToRight Claus Gittinger <cg@exept.de> parents: 2357 diff changeset	10987
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10988	scrollToTop
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10989	"move viewOrigin to top"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10990
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10991	self scrollVerticalTo:0
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10992	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10993
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10994	scrollToTopLeft
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10995	"move viewOrigin to top/left"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10996
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10997	self scrollTo:(0 @ 0).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10998	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	10999
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11000	scrollUp
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11001	"scroll up by some amount; this is called when the scrollbars
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11002	scroll-step up button is pressed."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11003
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11004	self scrollUp:(self verticalScrollStep)
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11005	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11006
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11007	scrollUp:nPixels
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11008	"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	11009
5572 0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	11010	self scrollRelative:nPixels negated
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	11011
0b2c89db1387 added: #scrollRelative: Claus Gittinger <cg@exept.de> parents: 5571 diff changeset	11012	"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	11013	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11014
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11015	scrollVerticalTo:aPixelOffset
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11016	"change origin to make aPixelOffset be the top line"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11017
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11018	\|orgX\|
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11019
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11020	orgX := self viewOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11021	^ self scrollTo:(orgX @ aPixelOffset).
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11022
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11023	"Modified: 8.7.1996 / 15:35:40 / stefan"
135 cf8e46015072 . claus parents: diff changeset	11024	!
cf8e46015072 . claus parents: diff changeset	11025
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11026	scrollVerticalToPercent:percent
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11027	"scroll to a position given in percent of total"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11028
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11029	\|hCont currentTransformation\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11030
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11031	hCont := self heightOfContents.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11032	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11033	currentTransformation notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11034	hCont := currentTransformation applyScaleY:hCont.
140 0db355079dc4 . claus parents: 138 diff changeset	11035	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11036	self scrollVerticalTo:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11037	((((hCont * percent) / 100.0) + 0.5) asInteger)
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11038	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11039
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11040	verticalScrollStep
5026 90f01342a59c comment Claus Gittinger <cg@exept.de> parents: 5022 diff changeset	11041	"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	11042	Subclasses may want to redefine this."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11043
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	11044	^ (device verticalPixelPerMillimeter * 20) asInteger
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11045	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11046
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	11047	widthForScrollBetween:yStart and:yEnd
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11048	"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	11049	- 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	11050	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	11051	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	11052	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	11053	not notice any difference."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11054
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11055	^ (width - margin - margin)
135 cf8e46015072 . claus parents: diff changeset	11056	! !
cf8e46015072 . claus parents: diff changeset	11057
cf8e46015072 . claus parents: diff changeset	11058	!SimpleView methodsFor:'scrolling-basic'!
cf8e46015072 . claus parents: diff changeset	11059
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	11060	scrollTo:newOrigin
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11061	"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	11062	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	11063	point."
8051 daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11064
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11065	self scrollTo:newOrigin redraw:true.
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11066
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11067	"Modified: / 15-07-1996 / 11:35:08 / stefan"
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11068	"Modified (format): / 20-07-2017 / 14:33:47 / cg"
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11069	!
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11070
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11071	scrollTo:newOrigin redraw:doRedraw
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11072	"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	11073	The argument defines the integer device coordinates of the new top-left
8052 204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11074	point.
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11075	If doRedraw is true, and any new areas are exposed, these are invalidated
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11076	(i.e. there may be pending redraw events in the event queue)."
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11077
8051 daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11078	self
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11079	scrollTo:newOrigin
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11080	redraw:doRedraw
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11081	allowScrollBeyondContents:false
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11082
8052 204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11083	"Modified (comment): / 20-07-2017 / 14:36:06 / cg"
3704 3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	11084	!
3652985d3d9c more invalidate methods; penk parents: 3698 diff changeset	11085
7341 5f622fa27203 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7339 diff changeset	11086	scrollTo:newOrigin redraw:doRedraw allowScrollBeyondContents:allowScrollBeyondContents
4294 40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	11087	"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	11088	The argument defines the integer device coordinates of the new top-left
8052 204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11089	point.
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11090	If doRedraw is true, and any new areas are exposed, these are invalidated
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11091	(i.e. there may be pending redraw events in the event queue)."
4294 40a19f1e8c76 * empty log message * Claus Gittinger <cg@exept.de> parents: 4262 diff changeset	11092
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11093	\|dX "{ Class:SmallInteger }"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11094	dY "{ Class:SmallInteger }"
4520 8e7a5f587df7 * empty log message * Claus Gittinger <cg@exept.de> parents: 4517 diff changeset	11095	orgX
8e7a5f587df7 * empty log message * Claus Gittinger <cg@exept.de> parents: 4517 diff changeset	11096	orgY
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11097	x y iw ih
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11098	hCont wCont fromX toX fromY toY copyWidth copyHeight
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11099	redrawX redrawY wg currentTransformation\|
135 cf8e46015072 . claus parents: diff changeset	11100
cf8e46015072 . claus parents: diff changeset	11101	hCont := self heightOfContents.
cf8e46015072 . claus parents: diff changeset	11102	wCont := self widthOfContents.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11103	currentTransformation := gc transformation.
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11104	currentTransformation isNil ifTrue:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11105	orgY := orgX := 0
135 cf8e46015072 . claus parents: diff changeset	11106	] ifFalse:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11107	wCont := (currentTransformation applyScaleX:wCont) rounded.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11108	hCont := (currentTransformation applyScaleY:hCont) rounded.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11109	orgY := currentTransformation translation y negated.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11110	orgX := currentTransformation translation x negated
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11111	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11112
135 cf8e46015072 . claus parents: diff changeset	11113	iw := self innerWidth.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11114	ih := self innerHeight.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11115
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11116	"don't scroll outside of displayed area"
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11117
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11118	x := newOrigin x.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11119	y := newOrigin y.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11120
7341 5f622fa27203 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7339 diff changeset	11121	allowScrollBeyondContents ifFalse:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11122	x + iw > wCont ifTrue:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11123	x := (wCont - iw) asInteger.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11124	].
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11125	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11126	x < 0 ifTrue:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11127	x := 0
7341 5f622fa27203 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7339 diff changeset	11128	].
5f622fa27203 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7339 diff changeset	11129	allowScrollBeyondContents ifFalse:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11130	y + ih > hCont ifTrue:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11131	y := (hCont - ih) asInteger.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11132	].
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11133	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11134	y < 0 ifTrue:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11135	y := 0.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11136	].
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11137
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11138	dX := x - orgX.
43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11139	dY := y - orgY.
135 cf8e46015072 . claus parents: diff changeset	11140
1066 bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	11141	(dX == 0 and:[dY == 0]) ifTrue:[
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	11142	^ self
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	11143	].
bd9f100a928f ignore null-scrolls Claus Gittinger <cg@exept.de> parents: 1063 diff changeset	11144
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	11145	(wg := self windowGroup) notNil ifTrue:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11146	wg processRealExposeEventsFor:self.
2649 6551ac88b855 checkin from browser Claus Gittinger <cg@exept.de> parents: 2638 diff changeset	11147	].
2405 95e4a8e563d8 precess expose events before scroll Claus Gittinger <cg@exept.de> parents: 2400 diff changeset	11148
135 cf8e46015072 . claus parents: diff changeset	11149	self originWillChange.
1017 43bc3829dcc5 Make #scrollTo: the basic scroll action. Stefan Vogel <sv@exept.de> parents: 1005 diff changeset	11150	(shown and:[doRedraw]) ifTrue:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11151	copyWidth := iw - dX abs.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11152	copyHeight := ih - dY abs.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11153	((copyWidth > 0) and:[copyHeight > 0]) ifTrue:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11154	"/ some of the currently displayed pixels
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11155	"/ remain visible. Copy them
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11156
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11157	dX < 0 ifTrue:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11158	fromX := margin.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11159	toX := margin - dX.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11160	redrawX := margin
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11161	] ifFalse:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11162	fromX := margin + dX.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11163	toX := margin.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11164	redrawX := margin + copyWidth.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11165	].
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11166	dY < 0 ifTrue:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11167	fromY := margin.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11168	toY := margin - dY.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11169	redrawY := margin.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11170	] ifFalse:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11171	fromY := margin + dY.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11172	toY := margin.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11173	redrawY := margin + copyHeight.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11174	].
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11175	self catchExpose.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11176	self setViewOrigin:(x @ y).
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11177	self
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11178	copyFrom:self
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11179	x:fromX y:fromY
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11180	toX:toX y:toY
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11181	width:copyWidth
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11182	height:copyHeight
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11183	async:true.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11184
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11185	self setInnerClip.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11186
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11187	"first redraw the rectangle above/below the
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11188	copied area (with full width)."
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11189
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11190	copyHeight < ih ifTrue:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11191	self invalidateDeviceRectangle:((margin@redrawY) extent:(iw@(ih - copyHeight))) repairNow:false.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11192	].
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11193
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11194	"second redraw the rectangle left/right of the
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11195	copied area"
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11196
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11197	copyWidth < iw ifTrue:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11198	self invalidateDeviceRectangle:((redrawX@toY) extent:((iw-copyWidth)@copyHeight)) repairNow:false.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11199	].
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11200	self waitForExpose.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11201	] ifFalse:[
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11202	"redraw everything"
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11203
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11204	self setViewOrigin:(x @ y).
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11205	self invalidateDeviceRectangle:((margin@margin) extent:(iw@ih)) repairNow:false.
b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11206	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11207	] ifFalse:[
7747 b957c1314cca #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 7740 diff changeset	11208	self setViewOrigin:(x @ y).
2802 c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	11209	].
c715aa164707 comment & category change Claus Gittinger <cg@exept.de> parents: 2784 diff changeset	11210
709 6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	11211	self originChanged:(dX negated @ dY negated).
6a8d793633ee fixed arg to #originChanged: Claus Gittinger <cg@exept.de> parents: 705 diff changeset	11212
8052 204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11213	"Modified: / 05-08-1996 / 11:57:09 / stefan"
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11214	"Modified: / 01-12-1998 / 22:35:18 / cg"
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11215	"Modified (comment): / 20-07-2017 / 14:36:14 / cg"
8051 daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11216	!
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11217
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11218	scrollTo:newOrigin waitForDrawingFinished:doWait
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11219	"change origin to have newOrigin be visible at the top-left.
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11220	The argument defines the integer device coordinates of the new top-left
8052 204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11221	point.
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11222	If any new areas are exposed, invalidate them.
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11223	If doWait is true, wait until all draws are completed,
204a9c55efb4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8051 diff changeset	11224	otherwise, possible redraws may still be in the event queue."
8051 daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11225
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11226	\|wg\|
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11227
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11228	self scrollTo:newOrigin redraw:true.
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11229	(doWait and:[shown and:[ (wg := self windowGroup) notNil]]) ifTrue:[
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11230	wg processRealExposeEventsFor:self.
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11231	].
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11232
daf7e8470ff4 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 8049 diff changeset	11233	"Created: / 20-07-2017 / 14:33:37 / cg"
135 cf8e46015072 . claus parents: diff changeset	11234	! !
cf8e46015072 . claus parents: diff changeset	11235
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11236	!SimpleView methodsFor:'startup'!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11237
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11238	open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11239	"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	11240	(i.e. the new view comes up as independent process).
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11241	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	11242	implemented in TopView), it is implemented here - therefore, every view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11243	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	11244	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	11245	control is under the current process, so that interaction with the
4131 30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	11246	current group is blocked while the modalBox is active).
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	11247
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	11248	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	11249	visible, since #open forks a new process, which does the actual window opening.
30e53fab0bc0 comment Claus Gittinger <cg@exept.de> parents: 4126 diff changeset	11250	To ensure visibility, use #openAndWait or waitUntilVisible after the open."
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11251
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11252	^ self openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11253
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11254	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11255	View new open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11256	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11257
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11258	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11259	(Button label:'hello') open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11260	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11261
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11262	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11263	\|top\|
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11264	top := StandardSystemView new.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11265	top extent:200@200.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11266	Button label:'hello' in:top.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11267	top open
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11268	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11269
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11270	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11271	YesNoBox new open
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11272	"
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11273
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11274	"Modified: 24.7.1997 / 13:26:42 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11275	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11276
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11277	openAndWait
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11278	"open up the view - wait until it is visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11279	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	11280	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	11281	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11282	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	11283	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	11284	Use this open in those situations."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11285
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11286	self open.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11287	self waitUntilVisible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11288
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11289	"does not work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11290
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11291	\|v\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11292
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11293	v := View new open.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11294	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11295
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11296	does work:
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11297
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11298	\|v\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11299
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11300	v := View new openAndWait.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11301	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11302	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11303	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11304
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11305	openAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11306	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11307
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11308	^self openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11309
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11310	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11311	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11312
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11313	(Button label:'hello') openAt:(100@100)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11314	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11315
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11316	"Modified: 24.7.1997 / 13:26:23 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11317	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11318
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11319	openAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11320	"open up the view modeless - positions the view"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11321
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11322	^self openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11323
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11324	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11325	(Button label:'hello') open
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11326
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11327	(Button label:'hello') openAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11328	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11329
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11330	"Modified: 24.7.1997 / 13:01:12 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11331	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11332
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11333	openAutonomous
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11334	"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	11335	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	11336	parallel.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11337	Notice:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11338	This entry is for NON-topviews, which want to be served
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11339	autonomous from their real topview.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11340	(see the fileBrowsers kill-button
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11341	when executing unix commands as an example)"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11342
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11343	\|wg mainGroup\|
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11344
4139 6acf2874394b WO's stuff werner parents: 4131 diff changeset	11345	wg := self windowGroupClass new.
763 dad0ad10c4d3 checkin from browser Claus Gittinger <cg@exept.de> parents: 761 diff changeset	11346	self windowGroup:wg.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11347
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11348	mainGroup := WindowGroup activeGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11349	mainGroup notNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11350	mainGroup := mainGroup mainGroup.
1877 6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11351	].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11352
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11353	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	11354	wg startupWith:[wg mainGroup:mainGroup. self realizeInGroup].
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11355
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11356	"/ wg startupModal:[true] forGroup:mainGroup
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11357	"/ self realizeInGroup.
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11358
6c7c5d6ad7f5 fixed windowGroup setting; Claus Gittinger <cg@exept.de> parents: 1874 diff changeset	11359	"Modified: 20.8.1997 / 17:57:38 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11360	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11361
420 9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11362	openInGroup:aGroup
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11363	"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	11364	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	11365	for applications where multiple views act as a group
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11366	(i.e. close and iconify together)."
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11367
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11368	self windowGroup:aGroup.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11369	aGroup addTopView:self.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11370
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11371	"/ self realizeKeepingGroup:true
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11372	aGroup isForModalSubview:true.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11373	self realize.
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11374	!
9ad55eba79ac allow opening subViews as modal; Claus Gittinger <cg@exept.de> parents: 415 diff changeset	11375
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11376	openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11377	"create a new windowgroup, but start processing in the current process
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11378	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	11379	Stay in the modalLoop while the view is visible.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11380	(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	11381
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11382	self openModal:[true]
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11383
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11384	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11385	the same:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11386	YesNoBox new open
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11387
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11388	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11389
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11390	different:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11391	(Button label:'hello') open
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11392
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11393	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11394	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11395	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11396
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11397	openModal:aBlock
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11398	"create a new windowgroup, but start processing in the current process -
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11399	actually suspending event processing for the currently active group.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11400	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	11401	visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11402	(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	11403	This makes any interaction with the current window impossible -
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11404	however, other views (in other windowgroups) still work."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11405
6077 267fb1241ec2 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 6074 diff changeset	11406	\|activeGroup\|
5271 228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	11407
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	11408	activeGroup := WindowGroup activeGroup.
9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	11409
5411 26b475890a60 eliminated borderWidth & borderColor; Claus Gittinger <cg@exept.de> parents: 5405 diff changeset	11410	"/ 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	11411	"/ 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	11412
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	11413	"/ mainGroup := activeGroup.
2167 41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	11414	"/ mainGroup notNil ifTrue:[mainGroup := mainGroup mainGroup].
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	11415
5273 9c8813e5b7a1 handling of abort of a hide-operation Claus Gittinger <cg@exept.de> parents: 5271 diff changeset	11416	"/ masterGroup := activeGroup.
5271 228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	11417	"/ [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	11418	"/ masterGroup := masterGroup previousGroup.
228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	11419	"/ ].
228c32bcdd37 mainGroup detection was wrong for modal-view-open; Claus Gittinger <cg@exept.de> parents: 5268 diff changeset	11420	^ 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	11421
41e74cf73d7a fixed modal popup from a modal view Claus Gittinger <cg@exept.de> parents: 2161 diff changeset	11422	"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	11423	"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	11424	!
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	11425
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11426	openModal:aBlock inGroup:activeWindowGroup
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	11427	"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	11428	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	11429	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	11430	visible.
e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	11431	(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	11432	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	11433	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	11434
7675 1b42e334f168 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	11435	\|tops mainView previousGroup mainGroup cursorChanged
1b42e334f168 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	11436	isPopup inSystemProcess makeTransient transientFor\|
5888 d83030f456a6 changed: #openModal:inGroup: Stefan Vogel <sv@exept.de> parents: 5871 diff changeset	11437
6072 69ba59e3fe6d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6070 diff changeset	11438	StandardSystemView cancelAutoRaise.
69ba59e3fe6d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6070 diff changeset	11439
6116 332ca0cd606f class: SimpleView Claus Gittinger <cg@exept.de> parents: 6115 diff changeset	11440	isPopup := self isPopUpView.
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11441	activeWindowGroup notNil ifTrue:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11442	mainGroup := activeWindowGroup mainGroup.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11443	mainView := mainGroup mainView.
5888 d83030f456a6 changed: #openModal:inGroup: Stefan Vogel <sv@exept.de> parents: 5871 diff changeset	11444	].
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	11445
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11446	"/ set the windowgroup BEFORE sending the aboutToOpen notification
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11447	"/ (so the handler sees me with a wGroup, sensor etc).
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11448	"/ this allows for the handler to enqueue an event,
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11449	"/ or to add event hooks.
7675 1b42e334f168 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	11450	(inSystemProcess := Processor activeProcessIsSystemProcess) ifTrue:[
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11451	"
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11452	put myself into the modal group, let it handle events for
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11453	me as well. This is only a half way solution, since the view
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11454	is not modal at all ... however, the only situation
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11455	where this happens is with modal boxes popped while in a
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11456	modal browser. You will forgive me for that inconvenience.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11457	"
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11458	windowGroup := activeWindowGroup.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11459	activeWindowGroup notNil ifTrue:[activeWindowGroup addTopView:self].
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11460	] ifFalse:[
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11461	previousGroup := activeWindowGroup.
7378 3f51596365af #OTHER by sr sr parents: 7341 diff changeset	11462	].
3f51596365af #OTHER by sr sr parents: 7341 diff changeset	11463
3f51596365af #OTHER by sr sr parents: 7341 diff changeset	11464	windowGroup isNil ifTrue:[
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11465	"/ create a new window group put myself into it
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11466	windowGroup := self windowGroupClass new.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11467	windowGroup
7675 1b42e334f168 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	11468	setProcess:Processor activeProcess;
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11469	addTopView:self;
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11470	setPreviousGroup:previousGroup.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11471
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11472	superView notNil ifTrue:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11473	"/
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11474	"/ special: this is a modal subview,
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11475	"/ prevent the view from reassigning its windowGroup when realized
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11476	"/ (subviews normally place themself into the superviews group)
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11477	"/
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11478	windowGroup isForModalSubview:true.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11479	].
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11480	].
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11481
6121 17d2c885beac class: SimpleView Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	11482	makeTransient := true.
7603 4247f662783d #OTHER by mawalch mawalch parents: 7593 diff changeset	11483	transientFor := mainView.
6116 332ca0cd606f class: SimpleView Claus Gittinger <cg@exept.de> parents: 6115 diff changeset	11484	isPopup ifFalse:[
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11485	"/ the following allows for knowledgable programmers to suppress dialog boxes,
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11486	"/ or to patch common controls right before opening...
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11487	(Dialog aboutToOpenBoxNotificationSignal raiseRequestWith:self) == #abort ifTrue:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11488	^ self
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11489	].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11490	windowGroup isNil ifTrue:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11491	"/ the aboutToOpenBoxNotificationSignal handler destroyed me (although it should proceed with #abort)!!
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11492	"/ Transcript showCR:(self class name,': box opening suppressed by aboutToOpenBoxNotificationSignal handler').
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11493	^ self.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11494	].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11495
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11496	"/ the following allows for hooks to add a bell sound or other whenever a dialog opens
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11497	device modalWindowListenersDo:[:listener \| listener aboutToOpenWindow:self].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11498
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11499	"/ the following raises the corresponding mainview, so the dialog shows above
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11500	"/ any currently covered view. However, be careful if being debugged, or if this dialog
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11501	"/ is opened by an already open dialog.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11502	(mainView isNil or:[mainView windowGroup isInModalLoop]) ifTrue:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11503	(previousGroup notNil and:[previousGroup isModal]) ifTrue:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11504	transientFor := previousGroup mainView.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11505	].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11506	].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11507
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11508	transientFor notNil ifTrue:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11509	(transientFor windowGroup isInModalLoop
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11510	or:[ transientFor windowGroup isDebugged
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11511	or:[ activeWindowGroup isDebugged
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11512	]]) ifFalse:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11513	self tracePoint:#cg message:'activate'.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11514	self debuggingCodeFor:#cg is:[ Transcript showCR:transientFor; showCR:transientFor windowGroup. ].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11515	transientFor activate; setForegroundWindow.
7603 4247f662783d #OTHER by mawalch mawalch parents: 7593 diff changeset	11516	"/ ] ifTrue:[
4247f662783d #OTHER by mawalch mawalch parents: 7593 diff changeset	11517	"/ makeTransient := false.
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11518	]
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11519	].
5888 d83030f456a6 changed: #openModal:inGroup: Stefan Vogel <sv@exept.de> parents: 5871 diff changeset	11520	].
7603 4247f662783d #OTHER by mawalch mawalch parents: 7593 diff changeset	11521	"/ makeTransient ifTrue:[
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11522	transientFor notNil ifTrue:[
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11523	"set the transient property.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11524	This is currently used for X, to tell the Window Manager
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11525	That this view should be always on top of the mainView"
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11526	self drawableId isNil ifTrue:[self create].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11527	device setTransient:self drawableId for:transientFor id.
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11528	].
7603 4247f662783d #OTHER by mawalch mawalch parents: 7593 diff changeset	11529	"/ ].
1397 932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	11530
932c517ad29c moved tranientView setup up in the hierarchy Claus Gittinger <cg@exept.de> parents: 1393 diff changeset	11531	self raise.
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	11532
7675 1b42e334f168 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 7663 diff changeset	11533	inSystemProcess ifTrue:[
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11534	self realize.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11535	^ self.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11536	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11537
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11538	"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11539	show a stop-cursor in the suspended window groups
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11540	"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11541	(mainGroup notNil and:[isPopup not]) ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11542	mainGroup showCursor:(Cursor stop).
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11543	previousGroup ~~ mainGroup ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11544	previousGroup showCursor:(Cursor stop).
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11545	].
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11546	cursorChanged := true.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11547	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11548
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11549	"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11550	go dispatch events in this new group
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11551	(thus current windowgroup is blocked from interaction)
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11552	"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11553	AbortOperationRequest handle:[:ex \|
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11554	"/ the dialog/popup is aborted - hide it. Care for another abort during the hide.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11555	AbortOperationRequest handle:[:ex2 \|
8097 2a80bbb855bf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8067 diff changeset	11556	"/ an aborted hide (possibly due to a canceled user confirmation or similar)
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11557	self breakPoint:#cg.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11558	ex proceed.
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11559	] do:[
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11560	self hide.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11561	realized ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11562	"/ self halt. "/ hide handled and closeRequest not wanted:
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11563	ex proceed.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11564	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11565	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11566	] do:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11567	\|startupDone\|
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11568
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11569	[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11570	startupDone := windowGroup startupModal:[realized and:aBlock] forGroup:activeWindowGroup
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11571	] ensure:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11572	startupDone isNil ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11573	"startupModal above has been curtailed"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11574	self hide.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11575	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11576	activeWindowGroup notNil ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11577	activeWindowGroup graphicsDevice sync. "that's a round trip - make sure that all drawing has been processed"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11578	"/ ensure that eventListener runs here ...
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11579	Delay waitForMilliseconds:50.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11580	activeWindowGroup processExposeEvents.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11581
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11582	(self isPopUpView or:[ReturnFocusWhenClosingModalBoxes]) ifTrue:[
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11583	"
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11584	return the input focus to the previously active group's top.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11585	This helps with window managers which need an explicit click
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11586	on the view for the focus.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11587	Only do this, if the previous group is still having the focus.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11588	(i.e. no other view was opened in the meantime)
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11589	"
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11590	activeWindowGroup graphicsDevice focusView isNil ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11591	tops := activeWindowGroup topViews.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11592	tops notEmptyOrNil ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11593	tops first getKeyboardFocus
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11594	].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11595	].
50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11596	].
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11597
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11598	"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11599	restore cursors in the changed groups
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11600	"
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11601	cursorChanged notNil ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11602	mainGroup restoreCursors.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11603	previousGroup ~~ mainGroup ifTrue:[
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11604	previousGroup restoreCursors.
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11605	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11606	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11607	].
65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11608	Dialog boxClosedNotificationSignal raiseRequestWith:self.
7618 50ccaeb61be1 #DOCUMENTATION by Maren matilk parents: 7617 diff changeset	11609	].
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11610	].
299 e2c8fd828a64 passing group to avoid multiple activeGroup searches Claus Gittinger <cg@exept.de> parents: 271 diff changeset	11611
4654 baa4bc036ec4 drag & drop Claus Gittinger <cg@exept.de> parents: 4652 diff changeset	11612	"Created: / 10-12-1995 / 14:06:14 / cg"
6121 17d2c885beac class: SimpleView Claus Gittinger <cg@exept.de> parents: 6119 diff changeset	11613	"Modified: / 29-08-2013 / 16:17:10 / cg"
7919 65494793e281 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7892 diff changeset	11614	"Modified: / 20-02-2017 / 17:10:34 / stefan"
8097 2a80bbb855bf #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 8067 diff changeset	11615	"Modified (format): / 24-08-2017 / 15:04:06 / cg"
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	11616	!
135 cf8e46015072 . claus parents: diff changeset	11617
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11618	openModalAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11619	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11620	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11621
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11622	self origin:aPoint.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11623	self drawableId isNil ifTrue:[self create].
27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11624	"/ device setTransient:self drawableId for:0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11625	^ self openModal
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11626
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11627	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11628	View new openModal
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11629	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11630	"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11631	View new openModalAt:100@100
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11632	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11633
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11634	"Created: 18.9.1995 / 23:21:42 / claus"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11635	"Modified: 18.9.1995 / 23:32:26 / claus"
1837 454d10a53a64 * empty log message * Claus Gittinger <cg@exept.de> parents: 1827 diff changeset	11636	"Modified: 28.7.1997 / 18:52:29 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11637	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11638
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11639	openModalAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11640	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11641	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11642
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	11643	^ self openModalAt:(device centerOfMonitorHavingPointer - (self extent//2)).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11644
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11645	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11646	View new openModal
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11647	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11648	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11649	View new openModalAtCenter
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11650	"
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11651
5729 a2d13b74741a changed: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5727 diff changeset	11652	"Modified: / 22-03-2011 / 13:33:10 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11653	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11654
7243 7d2c79d650c7 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	11655	openModalAtPointer
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	11656	^ self openModalAt:(device pointerPosition)
7243 7d2c79d650c7 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	11657
7d2c79d650c7 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	11658	"
7d2c79d650c7 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	11659	View new openModalAtPointer
7d2c79d650c7 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	11660	"
7d2c79d650c7 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	11661	!
7d2c79d650c7 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7232 diff changeset	11662
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11663	openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11664	"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	11665	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	11666	parallel (i.e. control is returned to the sender immediately)."
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11667
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11668	self openModelessAt:nil
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11669
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11670	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11671	the same:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11672	(Button label:'hello') open
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11673
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11674	(Button label:'hello') openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11675
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11676	different:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11677	YesNoBox new open
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11678
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11679	YesNoBox new openModeless
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11680	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11681	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11682	(almost) the same:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11683	YesNoBox new open
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11684
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11685	YesNoBox new openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11686
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11687	different:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11688	(Button label:'hello') open
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11689
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11690	(Button label:'hello') openModal
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11691	"
503 c2b27766bb0a dont create a new windowGroup if there is one (in #openModeless) Claus Gittinger <cg@exept.de> parents: 497 diff changeset	11692
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11693	"Modified: 24.7.1997 / 13:17:49 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11694	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11695
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11696	openModelessAt:aPoint
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11697	"open up the view modeless - positions the view
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11698	(i.e. tries to circumvent the window managers positioning)
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11699	Notice: some windowManagers seem to ignore this and always
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11700	ask the user to position the view."
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11701
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11702	self openModelessAt:aPoint iconified:false
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11703
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11704	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11705	View new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11706
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11707	View new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11708	"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11709
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11710	"Created: 18.9.1995 / 23:21:42 / claus"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11711	"Modified: 24.7.1997 / 13:48:52 / cg"
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11712	!
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11713
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11714	openModelessAt:aPoint iconified:iconified
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11715	"open up the view modeless - positions the view
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11716	(i.e. tries to circumvent the window managers positioning)
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11717	Notice: some windowManagers seem to ignore this and always
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11718	ask the user to position the view."
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11719
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11720	\|newGroup\|
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11721
6072 69ba59e3fe6d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6070 diff changeset	11722	StandardSystemView cancelAutoRaise.
6315 27f1a761148e [true] whileTrue: -> #loop Stefan Vogel <sv@exept.de> parents: 6291 diff changeset	11723	self drawableId isNil ifTrue:[self create].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11724
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11725	windowGroup isNil ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11726	newGroup := true.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11727	windowGroup := self windowGroupClass new.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11728	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11729	newGroup := false.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11730	].
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11731
56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11732	windowGroup addTopView:self.
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	11733
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	11734	"/ the following allows for hooks to be informed whenever a non-modal view opens
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	11735	device nonModalWindowListenersDo:[:listener \| listener aboutToOpenWindow:self].
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	11736
3745 8456462f2ac0 code beautifaction Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	11737	newGroup ifTrue:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11738	(aPoint isNil and:[iconified not]) ifTrue:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11739	windowGroup startupWith:[self realize].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11740	] ifFalse:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11741	windowGroup startupWith:[self realizeKeepingGroup:false at:aPoint iconified:iconified].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11742	].
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11743	] ifFalse:[
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11744	self realizeInGroup.
1823 56c9a8366a31 changes to support #openIconified. Claus Gittinger <cg@exept.de> parents: 1809 diff changeset	11745	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11746
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11747	"
1827 bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11748	StandardSystemView new openModeless
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11749
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11750	StandardSystemView new openModelessAt:100@100
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11751
bd127ee5469d more fixes Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	11752	StandardSystemView new openModelessAt:100@100 iconified:true
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11753	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11754
5635 20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	11755	"Created: / 18-09-1995 / 23:21:42 / claus"
20533b01f718 changed: Claus Gittinger <cg@exept.de> parents: 5629 diff changeset	11756	"Modified: / 24-10-2010 / 15:22:53 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11757	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11758
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11759	openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11760	"open up the view modeless - positions the view
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11761	(i.e. circumvents window managers positioning)"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11762
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	11763	^ self openModelessAt:(device centerOfMonitorHavingPointer - (self extent//2)).
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11764
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11765	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11766	View new openModeless
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11767
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11768	View new openModelessAtCenter
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11769	"
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11770
5729 a2d13b74741a changed: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5727 diff changeset	11771	"Created: / 18-09-1995 / 23:21:42 / claus"
a2d13b74741a changed: #openModal:inGroup: Claus Gittinger <cg@exept.de> parents: 5727 diff changeset	11772	"Modified: / 22-03-2011 / 13:33:13 / cg"
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11773	!
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11774
7105 7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11775	openModelessAtPointer
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11776	"create and schedule a new windowgroup for me and open the view.
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11777	The view will be handled by its own process, effectively running in
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11778	parallel (i.e. control is returned to the sender immediately)."
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11779
7262 cad293885151 #REFACTORING Claus Gittinger <cg@exept.de> parents: 7243 diff changeset	11780	self openModelessAt:(device pointerPosition)
7105 7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11781
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11782	"
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11783	(Button label:'hello') openModelessAtPointer
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11784	"
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11785	!
7b9ac07c5ffe #FEATURE Claus Gittinger <cg@exept.de> parents: 7094 diff changeset	11786
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11787	waitUntilVisible
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11788	"wait until the receiver visible.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11789	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	11790	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	11791	first expose event.
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11792	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	11793	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	11794	another view (which is only available once visible),
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11795	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	11796	Caveat:
7957 b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11797	we poll here for the view to be shown - we need a semaphore
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11798	which is raised by the view in order to do it right."
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11799
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11800	\|delay n\|
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11801
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11802	delay := Delay forMilliseconds:50.
3522 a98163edc25b care for #waitUntilVisible to be called from within the event dispatcher Claus Gittinger <cg@exept.de> parents: 3518 diff changeset	11803	n := 0.
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11804	[self shown] whileFalse:[
7957 b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11805	\|wg\|
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11806
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11807	(device notNil and:[device isOpen not]) ifTrue:[^ self].
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11808
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11809	"/ this was added to avoid a deadlock, when called from within
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11810	"/ the event dispatch process (as when doing foo inspect there).
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11811	n > (10 / 0.05) ifTrue:[
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11812	'SimpleView [info]: View not visible after 10 seconds - will not wait any longer in waitUntilVisible' infoPrintCR.
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11813	^ self
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11814	].
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11815	n := n + 1.
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11816	delay wait.
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11817	(wg := self windowGroup) notNil ifTrue:[
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11818	wg processExposeEvents.
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11819	].
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11820	].
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11821
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11822	"does not work (the view is in its opening phase,
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11823	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	11824	its internals are not yet correctly setup):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11825
7957 b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11826	\|v\|
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11827
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11828	v := View new open.
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11829	v displayLineFrom:0@0 to:50@50
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11830
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11831	does work (since we wait until the view has completely finished
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11832	its startup phase):
ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	11833
7957 b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11834	\|v\|
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11835
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11836	v := View new open.
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11837	v waitUntilVisible.
b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11838	v displayLineFrom:0@0 to:50@50
5595 05e3cc1b4ba7 changed: #waitUntilVisible Claus Gittinger <cg@exept.de> parents: 5591 diff changeset	11839	"
05e3cc1b4ba7 changed: #waitUntilVisible Claus Gittinger <cg@exept.de> parents: 5591 diff changeset	11840
05e3cc1b4ba7 changed: #waitUntilVisible Claus Gittinger <cg@exept.de> parents: 5591 diff changeset	11841	"Modified: / 08-08-2010 / 14:46:34 / cg"
7957 b9a0b6eff8a2 #TUNING by stefan Stefan Vogel <sv@exept.de> parents: 7933 diff changeset	11842	"Modified: / 23-02-2017 / 14:17:10 / stefan"
135 cf8e46015072 . claus parents: diff changeset	11843	! !
cf8e46015072 . claus parents: diff changeset	11844
5912 028265548a34 added: #isApplicationSubView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5896 diff changeset	11845	!SimpleView methodsFor:'testing'!
028265548a34 added: #isApplicationSubView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5896 diff changeset	11846
6622 1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11847	hasOwnScrollbars
1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11848	"a hack for codeView2, which behaves like a TextView, but has its own
1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11849	scrollbars embedded - sigh (an extra load one).
1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11850	This allows for the UIBuilder to avoid creating an extra set around such
1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11851	a view (as is the case with TextSpec with scrollbars when using CodeView2)"
1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11852
1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11853	^ false
1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11854	!
1fa709b9d5a1 class: SimpleView Claus Gittinger <cg@exept.de> parents: 6611 diff changeset	11855
5912 028265548a34 added: #isApplicationSubView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5896 diff changeset	11856	isApplicationSubView
028265548a34 added: #isApplicationSubView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5896 diff changeset	11857	^ false
6911 b7e5e48b5c0a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6907 diff changeset	11858	!
b7e5e48b5c0a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6907 diff changeset	11859
b7e5e48b5c0a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6907 diff changeset	11860	isComboView
b7e5e48b5c0a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6907 diff changeset	11861	^ false
b7e5e48b5c0a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6907 diff changeset	11862	!
b7e5e48b5c0a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6907 diff changeset	11863
b7e5e48b5c0a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6907 diff changeset	11864	isPopUpList
b7e5e48b5c0a class: SimpleView Claus Gittinger <cg@exept.de> parents: 6907 diff changeset	11865	^ false
5912 028265548a34 added: #isApplicationSubView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5896 diff changeset	11866	! !
5805 fd85e3ffea7d category of: #isCodeView2 Claus Gittinger <cg@exept.de> parents: 5804 diff changeset	11867
3276 9ed39f7e7282 category change Claus Gittinger <cg@exept.de> parents: 3266 diff changeset	11868	!SimpleView methodsFor:'user interaction & notifications'!
135 cf8e46015072 . claus parents: diff changeset	11869
cf8e46015072 . claus parents: diff changeset	11870	warn:aString
cf8e46015072 . claus parents: diff changeset	11871	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	11872	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	11873
4452 0076d4427e51 remember the helpKey in the view - not in the builder Claus Gittinger <cg@exept.de> parents: 4447 diff changeset	11874	super warn:(resources stringWithCRs:aString)
135 cf8e46015072 . claus parents: diff changeset	11875	!
cf8e46015072 . claus parents: diff changeset	11876
cf8e46015072 . claus parents: diff changeset	11877	warn:aString with:argument
cf8e46015072 . claus parents: diff changeset	11878	"like Objects warn, but translates the string via the
cf8e46015072 . claus parents: diff changeset	11879	resourcePack, thus giving a translated string automatically"
cf8e46015072 . claus parents: diff changeset	11880
4406 09339c622956 * empty log message * Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	11881	super warn:(resources stringWithCRs:aString with:argument)
151 8123ec03c52f . claus parents: 145 diff changeset	11882	!
8123ec03c52f . claus parents: 145 diff changeset	11883
8123ec03c52f . claus parents: 145 diff changeset	11884	warn:aString with:arg1 with:arg2
8123ec03c52f . claus parents: 145 diff changeset	11885	"like Objects warn, but translates the string via the
8123ec03c52f . claus parents: 145 diff changeset	11886	resourcePack, thus giving a translated string automatically"
8123ec03c52f . claus parents: 145 diff changeset	11887
4406 09339c622956 * empty log message * Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	11888	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	11889	!
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	11890
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	11891	warn:aString with:arg1 with:arg2 with:arg3
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	11892	"like Objects warn, but translates the string via the
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	11893	resourcePack, thus giving a translated string automatically"
6bbbe1943191 added #warn:with:with:with: Claus Gittinger <cg@exept.de> parents: 3181 diff changeset	11894
4406 09339c622956 * empty log message * Claus Gittinger <cg@exept.de> parents: 4389 diff changeset	11895	super warn:(resources stringWithCRs:aString with:arg1 with:arg2 with:arg3)
135 cf8e46015072 . claus parents: diff changeset	11896	! !
cf8e46015072 . claus parents: diff changeset	11897
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11898	!SimpleView::AboutToOpenBoxNotificationSignal class methodsFor:'documentation'!
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11899
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11900	documentation
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11901	"
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11902	this is a hook notification, raised right before a dialog box is about to be opened.
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11903	This allows for standard dialogs (such as confirmers, choosers or notifiers) to
6291 65b57dca9902 * empty log message * Claus Gittinger <cg@exept.de> parents: 6289 diff changeset	11904	be customized by additional widgets.
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11905
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11906	i.e. its typical use is like:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11907	\|doNotShowHolder\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11908
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11909	doNotShowHolder := false asValue.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11910	Dialog aboutToOpenBoxNotificationSignal handle:[:ex \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11911	\|box\|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11912
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11913	box := ex box.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11914	box verticalPanel
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11915	add:(CheckBox label:('Do not show this information in the future.')
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11916	model:doNotShowHolder).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11917	] do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11918	Dialog information:'This is a standard information box.\(but has an additional check toggle in it)' withCRs.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11919	].
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11920
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11921	Another application is to suppress dialogs, by returning #abort from the query
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11922	(of course, in real life, the Dialog call is deeply nested below the handler and done elsewhere):
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11923
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11924	Dialog aboutToOpenBoxNotificationSignal
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11925	answer:#abort
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11926	do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11927	Dialog information:'This box is not shown.'
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11928	].
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11929
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11930	or to automatically answer all dialogs by simulating user entering a return:
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11931
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11932	Dialog aboutToOpenBoxNotificationSignal
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11933	handle:[:ex \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11934	ex box windowGroup sensor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11935	pushEvent:
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11936	(WindowEvent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11937	keyPress:#Return
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11938	rawKey:#Return
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11939	hasShift:false ctrl:false alt:false meta:false
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11940	button1:false button2:false button3:false
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11941	x:1 y:1 view:ex box).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11942	] do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11943	Transcript showCR:(Dialog confirm:'Please confirm.')
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11944	].
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11945
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11946	or an escape:
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11947
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11948	Dialog aboutToOpenBoxNotificationSignal
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11949	handle:[:ex \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11950	ex box windowGroup sensor
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11951	pushEvent:
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11952	(WindowEvent
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11953	keyPress:#Escape
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11954	rawKey:#Escape
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11955	hasShift:false ctrl:false alt:false meta:false
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11956	button1:false button2:false button3:false
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11957	x:1 y:1 view:ex box).
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11958	] do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11959	Transcript showCR:(Dialog confirm:'Please confirm.')
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11960	].
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11961
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11962	Finally, a recorder may want to keep track of which dialogs have been opened:
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11963	(of course, again, the Dialog calls are deeply nested below the handler and done elsewhere):
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11964
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11965	Dialog aboutToOpenBoxNotificationSignal handle:[:ex \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11966	Transcript showCR:ex box topView label
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11967	] do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11968	Dialog information:'box #1.'.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11969	Dialog information:'box #2.'.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11970	Dialog confirm:'bla'.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	11971	].
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11972
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11973	"
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11974	! !
7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11975
5340 45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	11976	!SimpleView::AboutToOpenBoxNotificationSignal methodsFor:'accessing'!
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	11977
6074 7e2bd99101d5 Added SimpleView::SboutToOpenBoxNotificationSignal>>application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6072 diff changeset	11978	application
6115 7b0730adc987 aboutToOpenBoxNotificationSignal semantic change (for Jan) Claus Gittinger <cg@exept.de> parents: 6114 diff changeset	11979	^ self box application
6074 7e2bd99101d5 Added SimpleView::SboutToOpenBoxNotificationSignal>>application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6072 diff changeset	11980
7e2bd99101d5 Added SimpleView::SboutToOpenBoxNotificationSignal>>application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6072 diff changeset	11981	"Created: / 03-06-2013 / 17:33:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7e2bd99101d5 Added SimpleView::SboutToOpenBoxNotificationSignal>>application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6072 diff changeset	11982	!
7e2bd99101d5 Added SimpleView::SboutToOpenBoxNotificationSignal>>application Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6072 diff changeset	11983
5770 3cad486cd661 x Claus Gittinger <cg@exept.de> parents: 5749 diff changeset	11984	box
3cad486cd661 x Claus Gittinger <cg@exept.de> parents: 5749 diff changeset	11985	^ parameter
3cad486cd661 x Claus Gittinger <cg@exept.de> parents: 5749 diff changeset	11986
3cad486cd661 x Claus Gittinger <cg@exept.de> parents: 5749 diff changeset	11987	"Created: / 30-06-2011 / 19:24:02 / cg"
3cad486cd661 x Claus Gittinger <cg@exept.de> parents: 5749 diff changeset	11988	!
3cad486cd661 x Claus Gittinger <cg@exept.de> parents: 5749 diff changeset	11989
5340 45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	11990	dialogBeingOpened
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	11991	^ parameter
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	11992	! !
45fd6e8b756d * empty log message * Claus Gittinger <cg@exept.de> parents: 5296 diff changeset	11993
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	11994	!SimpleView::ViewShape methodsFor:'queries'!
36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	11995
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	11996	isRoundShape
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	11997	^ false
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	11998	! !
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	11999
7127 adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12000	!SimpleView::BoxClosedNotificationSignal class methodsFor:'documentation'!
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12001
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12002	documentation
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12003	"
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12004	this is a hook notification, raised right after a dialog box has been closed.
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12005	This allows for standard dialogs (such as confirmers, choosers or notifiers) to
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12006	be wrapped by other programs.
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12007
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12008	i.e. its typical use is like:
7617 3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12009	Dialog boxClosedNotificationSignal handle:[:ex \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12010	Transcript showCR:'box closed'
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12011	] do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12012	Dialog aboutToOpenBoxNotificationSignal handle:[:ex \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12013	Transcript showCR:'box about to open'
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12014	] do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12015	Dialog information:'This is a standard information box.'.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12016	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12017	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12018
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12019	Dialog boxClosedNotificationSignal handle:[:ex \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12020	Transcript showCR:'box closed'
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12021	] do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12022	Dialog aboutToOpenBoxNotificationSignal handle:[:ex \|
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12023	Transcript showCR:'box about to open'
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12024	] do:[
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12025	Dialog confirm:'Yes or No.'.
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12026	].
3bcc92c94b66 comments Claus Gittinger <cg@exept.de> parents: 7604 diff changeset	12027	].
7127 adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12028	"
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12029	! !
adc098ec85e8 #FEATURE Claus Gittinger <cg@exept.de> parents: 7109 diff changeset	12030
7144 f4e60dee88e3 #FEATURE Claus Gittinger <cg@exept.de> parents: 7132 diff changeset	12031	!SimpleView::BoxClosedNotificationSignal methodsFor:'accessing'!
f4e60dee88e3 #FEATURE Claus Gittinger <cg@exept.de> parents: 7132 diff changeset	12032
f4e60dee88e3 #FEATURE Claus Gittinger <cg@exept.de> parents: 7132 diff changeset	12033	box
f4e60dee88e3 #FEATURE Claus Gittinger <cg@exept.de> parents: 7132 diff changeset	12034	^ parameter
f4e60dee88e3 #FEATURE Claus Gittinger <cg@exept.de> parents: 7132 diff changeset	12035	! !
f4e60dee88e3 #FEATURE Claus Gittinger <cg@exept.de> parents: 7132 diff changeset	12036
3377 9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	12037	!SimpleView::RoundViewShape methodsFor:'queries'!
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	12038
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	12039	isRoundShape
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	12040	^ true
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	12041
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	12042
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	12043	! !
9a9199a8bc3f must invoke findGUIResources, when an spec array is converted to Claus Gittinger <cg@exept.de> parents: 3375 diff changeset	12044
2750 36b1a4d30882 moved round-view shape computation code to simpleView Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	12045	!SimpleView::ArbitraryViewShape methodsFor:'accessing'!
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	12046
3366 3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12047	borderShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12048	"return the value of the instance variable 'borderShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12049
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12050	^ borderShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12051
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12052	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12053	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12054
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12055	borderShapeForm:something
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12056	"set the value of the instance variable 'borderShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12057
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12058	borderShapeForm := something.
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12059
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12060	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12061	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12062
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12063	viewShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12064	"return the value of the instance variable 'viewShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12065
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12066	^ viewShapeForm
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12067
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12068	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12069	!
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12070
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12071	viewShapeForm:something
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12072	"set the value of the instance variable 'viewShapeForm' (automatically generated)"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12073
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12074	viewShapeForm := something.
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12075
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12076	"Created: 18.9.1997 / 11:04:29 / cg"
3750f8131471 * empty log message * Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	12077	! !
1903 285c7dc06ddb * empty log message * Claus Gittinger <cg@exept.de> parents: 1894 diff changeset	12078
1101 ffeb697dd9e0 hasButtonMotionEventsFor -> hasButtonMotionEventFor Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	12079	!SimpleView class methodsFor:'documentation'!
269 ea536bb319a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 264 diff changeset	12080
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	12081	version
6880 f2af2640ad4d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6864 diff changeset	12082	^ '$Header$'
5775 8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	12083	!
8ffa2b5bf8d0 added: Claus Gittinger <cg@exept.de> parents: 5774 diff changeset	12084
5354 4a62930c1786 * empty log message * Claus Gittinger <cg@exept.de> parents: 5340 diff changeset	12085	version_CVS
6880 f2af2640ad4d class: SimpleView Claus Gittinger <cg@exept.de> parents: 6864 diff changeset	12086	^ '$Header$'
135 cf8e46015072 . claus parents: diff changeset	12087	! !
3745 8456462f2ac0 code beautifaction Claus Gittinger <cg@exept.de> parents: 3730 diff changeset	12088
6050 6d4531c62a46 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 5978 diff changeset	12089
135 cf8e46015072 . claus parents: diff changeset	12090	SimpleView initialize!

author	matilk
	Wed, 13 Sep 2017 09:40:34 +0200
changeset 8174	2704c965b97b
parent 8148	987e7d0dee97
child 8206	bffa06a7b06d
permissions	-rw-r--r--