"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

PseudoView subclass:#SimpleView

	instanceVariableNames:'superView subViews components styleSheet resources borderColor

		borderWidth borderShape viewShape top left extentChanged

		originChanged cornerChanged relativeOrigin relativeExtent

		relativeCorner originRule extentRule cornerRule insets viewport

		layout shown hiddenOnRealize name level margin innerClipRect

		shadowColor lightColor bitGravity viewGravity controller

		windowGroup'

	classVariableNames:'Grey CentPoint ViewSpacing DefaultStyle StyleSheet

		DefaultViewBackgroundColor DefaultBorderColor DefaultLightColor

		DefaultShadowColor DefaultBorderWidth DefaultFont

		DefaultFocusColor DefaultFocusBorderWidth

		ReturnFocusWhenClosingModalBoxes'

	poolDictionaries:''

	category:'Views-Basic'

!

SimpleView class instanceVariableNames:'ClassResources'

"

 The following class instance variables are inherited by this class:

	PseudoView - 

	DeviceDrawable - 

	DisplayMedium - 

	GraphicsContext - 

	Object - 

"

!

!SimpleView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    this class implements functions common to all Views which do not work on / show a model. 

    Previously, all of this functionality used to be in the old View class, but has been

    separated into this new SimpleView (which does not know about models) and the new View, which

    does so.

    Instances of SimpleView are seldom used, most views in the system inherit 

    from this class. 

    However, sometimes a view is used to create a dummy view for framing 

    or layout purposes.

    Instance variables:

	superView               <View>                  my superview i.e. the view I am in

	subViews                <Collection>            the collection of subviews

	components              <Collection>            collection of gadgets (will be merged with subViews, soon)

	borderColor             <Color>                 color of border

	borderWidth             <Number>                borderWidth in pixels (device dep.)

	borderShape             <Form>                  shape of border (if device supports it)

	viewShape               <Form>                  shape of view (if device supports it)

	top                     <Number>                actual top coordinate (pixels) in superview

	left                    <Number>                actual left coordinate (pixels) in superview

	extendChanged           <Boolean>               true if extend changed during setup

	originChanged           <Boolean>               true if origin changed during setup

	viewport                <Rectangle>             my Rectangle in superviews coordinates

	relativeOrigin          <Number>                relative origin in percent within superview

	relativeExtent          <Number>                relative extent in percent within superview

	relativeCorner          <Number>                relative corner in percent within superview

	originRule              <Block>                 rule to compute origin if superview changes size

	extentRule              <Block>                 rule to compute extent if superview changes size

	cornerRule              <Block>                 rule to compute corner if superview changes size

	insets                  <Array>                 array with top, left, bottom & right insets (or nil)

	layout                  <LayoutObject>          not yet implemented - will replace the above layout

							variables.

	shown                   <Boolean>               true if visible (false if iconified, unmapped or covered)

	hiddenOnRealize         <Boolean>               dont show automatically when superview is realized

	name                    <String>                my name (future use for resources)

	level                   <Number>                3D level relative to superview

	margin                  <Number>                convenient margin

	innerClipRect           <Rectangle>             convenient inner clip (minus margin)

	shadowColor             <Color>                 color used to draw 3D shadowed edges

	lightColor              <Color>                 color used to draw 3D lighted edges

	bitGravity              <nil | Symbol>          gravity of contents (if device supports it)

	viewGravity             <nil | Symbol>          gravity of view (if device supports it)

	controller              <nil | Controller>      the controller (if any)

	windowGroup             <WindowGroup>           the windowGroup

    Class variables:

	Grey                    <Color>                 the color grey - its used so often

	ViewSpacing             <Number>                preferred spacing between views; 1mm

	CentPoint               <Point>                 100 @ 100 - its used so often

	StyleSheet              <ResourcePack>          contains all view-style specifics

	ReturnFocusWhenClosingModalBoxes                if true, a closing modalBox returns

				<Boolean>               the keyboard focus to the view which was

							active when the box was opened.

							If false (the default), it is left to

							window manager to assign a new focus.

							If running on olwm/olvwm (which requires an

							explicit click to reassign a focus), it is

							better to turn this on in a private.rc file.

    styleSheet parameters:

	popupShadow             <Boolean>               if true, popupViews show a shadow below

	popupLevel              <nil | Integer>         3D level

	borderWidth             <nil | Integer>         borderWidth (ignored in 3D styles)

	borderColor             <nil | Color>           borderColor (ignored in 3D styles)

	viewBackground          <nil | Color>           views background

	shadowColor             <nil | Color>           color for shadow edges (ignored in 2D styles)

	lightColor              <nil | Color>           color for light edges (ignored in 2D styles)

	font                    <nil | Font>            font to use

    TODO:

	get rid of relativeOrigin, relativeCorner, originRule, extentRule,

	and insets; replace by a single object which defines the size

	(mhmh - ST-80 seems to call this LayoutFrame ?)

	-> be prepared for a change here in the near future and ONLY use

	   access methods to get those instance variables' values

	get rid of 3D level & margin, move it to extra wrappers

	(although this will make view setup more complicated, it will remove

	 complexity from the internals of view. Also, it will allow for more

	 varieties of borders.)

	add components (could also call them gadgets or lightweight views)

	- views are expensive in terms of X resources. This would make all

	framing/edge and panel helper views become cheap ST objects, instead

	of views.

"

!

examples 

"

    (all examples below use different viewBackgrounds, 

     to make the individual subviews visible)

    fixed position/size:

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View origin:10@10

		  corner:50@50

		      in:top.

       v2 := View origin:60@10

		  corner:150@100

		      in:top.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top open

    same, using ST-80 way of bulding up view hierarchies

    (recommended, if you plan to port applications later)

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View new.

       v1 origin:10@10 corner:50@50.

       v2 := View new.

       v2 origin:60@10 corner:150@100.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top add:v1.

       top add:v2.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top open

    fixed origin, variable size:

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View new.

       v1 origin:10@10 corner:50@0.5.

       v2 := View new.

       v2 origin:60@10 corner:150@0.5.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top add:v1.

       top add:v2.

       top open

    fixed origin, variable size, 

    bottomInset for constant distance from bottom:

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View new.

       v1 origin:10@10 corner:50@1.0.

       v1 bottomInset:10.

       v2 := View new.

       v2 origin:60@10 corner:150@1.0.

       v2 bottomInset:10.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top add:v1.

       top add:v2.

       top open

    variable origin, variable size, 

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View new.

       v1 origin:0.0@0.0 corner:0.5@0.5.

       v2 := View new.

       v2 origin:0.5@0.0 corner:1.0@0.5.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top add:v1.

       top add:v2.

       top open

    variable origin, variable size, 

    insets for some constant distance

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View new.

       v1 origin:0.0@0.0 corner:0.5@0.5.

       v1 rightInset:5.

       v2 := View new.

       v2 origin:0.5@0.0 corner:1.0@0.5.

       v2 leftInset:5.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top add:v1.

       top add:v2.

       top open

    using layout objects (ST-80 style):

    fully specifying the frame

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View new.

       v2 := View new.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top add:v1 in:(LayoutFrame new

			leftFraction:0.25;

			rightFraction:0.75;

			topFraction:0.0;

			bottomFraction:0.5).

       top add:v2 in:(LayoutFrame new

			leftFraction:0.5;

			rightFraction:1.0;

			topFraction:0.5;

			bottomFraction:0.75).

       top open

    another one, with offsets:

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View new.

       v2 := View new.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top add:v1 in:(LayoutFrame new

			leftFraction:0.0 offset:10;

			rightFraction:1.0 offset:-10;

			topFraction:0.0 offset:10;

			bottomFraction:0.5).

       top add:v2 in:(LayoutFrame new

			leftFraction:0.0 offset:30;

			rightFraction:1.0 offset:-30;

			topFraction:0.5 offset:10;

			bottomFraction:0.75).

       top open

    specifying origin only. Extent is views preferred

    (notice, that plain views have some defaultExtent of 100@100)

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := View new.

       v2 := View new.

       v1 viewBackground:(Color red).

       v2 viewBackground:(Color yellow).

       top add:v1 in:(LayoutOrigin new

			leftFraction:0.25;

			topFraction:0.0).

       top add:v2 in:(LayoutOrigin new

			leftFraction:0.5;

			topFraction:0.5).

       top open

    same example, using buttons which compute their preferredBounds:

       |top v1 v2|

       top := StandardSystemView new.

       top extent:300@300.

       v1 := Button label:'foo'.

       v2 := Button label:'a very long buttonLabel'.

       v1 backgroundColor:(Color red).

       v2 backgroundColor:(Color yellow).

       top add:v1 in:(LayoutOrigin new

			leftFraction:0.25;

			topFraction:0.0).

       top add:v2 in:(LayoutOrigin new

			leftFraction:0.5;

			topFraction:0.5).

       top open

"

!

layoutComputation 

"

    Due to historic reasons, there are 2 mechanisms to resize a view:

	- (old, to be eliminated mechanism)

	    based upon info found in 

		relativeOrigin / relativeCorner / relativeExtent

		originRule / cornerRule / extentRule

	- (new, will migrate to that one)

	    letting a layoutObject compute things

    Actually, the old mechanism is just as powerful, as the new (layoutObject

    based) mechanism; with the help of block=rules, you can compute whatever

    geometry is desired.

    However, having 6 instance variables in every view creates some overhead,

    which can be avoided in most cases (most views are either fixed-size or

    relative-sized).

    Therefore (and also to make porting of ST-80 apps easier), ST/X will migrate 

    to use layoutObjects.

    You will not see a difference at the views protocol level, since

    existing interfaces will (silently) create layoutObjects as appropriate.

    However, you should remove all direct accesses to the above mentioned

    instance variables, to be prepared for that change.

    Notice, that a view recomputes its size whenever its superview

    changes size. This is done via:

	sizeChanged

	    -> allSubviews: superViewChangedSize

    If the geometry computation as performed in superViewChangedSize

    is not powerful enough for your application, you can either:

	- redefine superViewChangedSize

	- create a special layoutObject which computes a new layout.

"

! !

!SimpleView class methodsFor:'initialization'!

initialize

    DefaultStyle isNil ifTrue:[

	Font initialize.

	Form initialize.

	Color initialize.

	Display notNil ifTrue:[

	    self defaultStyle:#normal.

	].

"/    self updateStyleCache.

	self == SimpleView ifTrue:[

	    Smalltalk addDependent:self   "/ to get language changes

	]

    ].

    ReturnFocusWhenClosingModalBoxes := false.

!

postAutoload

    self updateStyleCache.

! !

!SimpleView class methodsFor:'instance creation'!

extent:extent

    "create a new view with given extent"

    ^ self origin:nil extent:extent borderWidth:nil

		      font:nil label:nil in:nil

!

extent:extent in:aView

    "create a new view as a subview of aView with given extent"

    ^ self origin:nil extent:extent borderWidth:nil

		      font:nil label:nil in:aView

!

extent:extent label:label

    "create a new view with given extent and label"

    ^ self origin:nil extent:extent borderWidth:nil

		      font:nil label:label in:nil

!

in:aView

    "return a new view as a subview of aView.

     If aView is nil, it is left unspecified, in which superview

     the new view will be placed. The view can later be assigned

     by adding it to the superview via #addSubView:.

     If realized and no superview has ever been set, it will come

     up as a topview."

    |newView|

    newView := self basicNew.

    aView notNil ifTrue:[