"

 COPYRIGHT (c) 1991 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.

"

SimpleView subclass:#VariablePanel

	 instanceVariableNames:'barHeight barWidth separatingLine shadowForm lightForm showHandle

		handlePosition handleColor handleStyle handleLevel noColor

		trackLine redrawLocked orientation'

	 classVariableNames:'DefaultShowHandle DefaultHandleStyle DefaultHandlePosition

		DefaultTrackingLine DefaultSeparatingLine DefaultHandleColor

		DefaultHandleLevel DefaultVCursor DefaultHCursor'

	 poolDictionaries:''

	 category:'Views-Layout'

!

!VariablePanel class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1991 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

"

    a View to separate its subviews vertically by a movable bar;

    the size-ratios of the subviews can be changed by moving this bar.

    In order to correctly setup this kind of view, the subviews must

    be created with a relative origin & relative corner.

    The panel does not verify the relative subview bounds; 

    therefore, it is your responsibility to set those relative sizes to fit

    according the orientation (see bad example below).

    The bar-handle is either an exposed knob (style == #motif)

    or the form defined in Scroller (style ~~ #motif)

    or nothing.

    Typically creation is done as:

	p := VariablePanel in:superView.

	p orientation:#vertical.

	v1 := <someViewClass> origin:0.0 @ 0.0

			      corner:1.0 @ 0.5

				  in:p.

	v2 := <someViewClass> origin:0.0 @ 0.5 

			      corner:1.0 @ 0.8 

				  in:p.

	v3 := <someViewClass> origin:0.0 @ 0.8 

			      corner:1.0 @ 1.0

				  in:p.

    Notice: if it is required to insert a fixed-size view in the panel,

    use an extra view & insets, and place the subview into that extra view.

    see examples.

"

!

examples

"

   example (setting the orientation later makes it equally space its views):

	|top p v1 v2 v3|

	top := StandardSystemView new.

	top extent:300@300.

	p := VariablePanel 

		 origin:0.0 @ 0.0

		 corner:1.0 @ 1.0

		 in:top.

	v1 := View in:p.

	v2 := View in:p.

	v3 := View in:p.

	v1 viewBackground:(Color red).

	v2 viewBackground:(Color green).

	v3 viewBackground:(Color yellow).

	p orientation:#vertical.

	top open.

   example (setting orientation first, req's that subviews have relative bounds):

	|top p v1 v2 v3|

	top := StandardSystemView new.

	top extent:300@300.

	p := VariablePanel 

		 origin:0.0 @ 0.0

		 corner:1.0 @ 1.0

		 in:top.

	p orientation:#vertical.

	v1 := View origin:0.0@0.0 corner:1.0@(1/2) in:p.

	v2 := View origin:0.0@(1/2) corner:1.0@(2/3) in:p.

	v3 := View origin:0.0@(2/3) corner:1.0@1.0 in:p.

	v1 viewBackground:(Color red).

	v2 viewBackground:(Color green).

	v3 viewBackground:(Color yellow).

	top open

   example (change the handles level):

	|top p v1 v2 v3|

	top := StandardSystemView new.

	top extent:300@300.

	p := VariablePanel 

		 origin:0.0 @ 0.0

		 corner:1.0 @ 1.0

		 in:top.

	p orientation:#vertical.

	p handleLevel:-1.

	v1 := View origin:0.0@0.0 corner:1.0@(1/3) in:p.

	v2 := View origin:0.0@(1/3) corner:1.0@(2/3) in:p.

	v3 := View origin:0.0@(2/3) corner:1.0@1.0 in:p.

	v1 viewBackground:(Color red).

	v2 viewBackground:(Color green).

	v3 viewBackground:(Color yellow).

	top open

    example (placing scrolled and unscrolled views into a variablePanel):

	|top p v1 v2 v3|

	top := StandardSystemView new.

	top extent:300@300.

	p := VariablePanel 

		 origin:0.0 @ 0.0

		 corner:1.0 @ 1.0

		 in:top.

	p orientation:#vertical.

	v1 := ScrollableView for:SelectionInListView in:p.

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

	v1 list:(FileDirectory directoryNamed:'/etc') contents.

	v1 action:[:selNr |

		|fullName stream text|

		fullName := '/etc/' , v1 selectionValue.

		stream := fullName asFilename readStream.

		stream notNil ifTrue:[

		    text := stream contents.

		    v2 contents:text.

		    v3 contents:text

		]

	].

	v2 := TextView origin:0.0 @ 0.5 corner:1.0 @ 0.8 in:p.

	v3 := ScrollableView for:TextView in:p.

	v3 origin:0.0 @ 0.8 corner:1.0 @ 1.0.

	top open

    example: (dynamically adding/removing views):

	|top p v1 v2 b|

	top := StandardSystemView new.

	top extent:300@300.

	b := Toggle label:'show' in:top.

	b showLamp:false.

	b origin:0.0 @ 0.0 corner:(1.0 @ 40).

	b action:[:state |

		state ifTrue:[

		    b label:'hide'.

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

		    v2 := ScrollableView for:EditTextView.

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

		    v2 contents:'another text'.

		    p addSubView:v2.

		] ifFalse:[

		    b label:'show'.

		    v2 destroy.

		    v1 origin:0.0 @ 0.0 corner:1.0 @ 1.0

		]

	    ].

	p := VariablePanel

		origin:0.0 @ 0.0

		corner:1.0 @ 1.0

		in:top.

	p orientation:#vertical.

	p topInset:50.

	v1 := ScrollableView for:EditTextView in:p.

	v1 origin:0.0 @ 0.0 corner:1.0 @ 1.0.

	v1 contents:'some text'.

	top open

    example: (dynamically flipping orientation):

    Notice: you have to change the relative bounds of the subviews first.

	|top p v1 v2 b|

	top := StandardSystemView new.

	top extent:300@300.

	b := Toggle label:'flip' in:top.

	b showLamp:false.

	b origin:0.0 @ 0.0 corner:(1.0 @ 40).

	b action:[:state |

		state ifTrue:[

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

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

		    p orientation:#horizontal.

		] ifFalse:[

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

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

		    p orientation:#vertical.

		].

	    ].

	p := VariablePanel

		origin:0.0 @ 0.0

		corner:1.0 @ 1.0

		in:top.

	p orientation:#vertical.

	p topInset:50.

	v1 := ScrollableView for:EditTextView in:p.

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

	v1 contents:'some text'.

	v2 := ScrollableView for:EditTextView in:p.

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

	v2 contents:'another text'.

	top open

   example (combining fix-size with variable size):

   (need 3 extra frame-views to place the extra labels into)

	|top p v1 l1 v2 l2 v3 l3 f1 f2 f3|

	top := StandardSystemView new.

	top extent:300@300.

	p := VariablePanel 

		 origin:0.0 @ 0.0

		 corner:1.0 @ 1.0

		 in:top.

	f1 := View in:p.

	f2 := View in:p.

	f3 := View in:p.

	v1 := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:f1.

	v2 := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:f2.

	v3 := View origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:f3.

	l1 := Label label:'sub1' in:f1.

	l2 := Label label:'sub2' in:f2.

	l3 := Label label:'sub3' in:f3.

	l1 origin:0.0 @ 0.0 corner:1.0 @ 0.0 ; 

	   bottomInset:(l1 preferredExtent y negated).

	l2 origin:0.0 @ 0.0 corner:1.0 @ 0.0 ; 

	   bottomInset:(l2 preferredExtent y negated).

	l3 origin:0.0 @ 0.0 corner:1.0 @ 0.0 ; 

	   bottomInset:(l3 preferredExtent y negated).

	v1 topInset:(l1 preferredExtent y); level:-1.

	v2 topInset:(l2 preferredExtent y); level:-1.

	v3 topInset:(l3 preferredExtent y); level:-1.

	v1 viewBackground:(Color red).

	v2 viewBackground:(Color green).

	v3 viewBackground:(Color yellow).

	p orientation:#vertical.

	top open

   BAD EXAMPLE (wrong relative sizes - repaired on handle move):

	|top p v1 v2 v3|

	top := StandardSystemView new.

	top extent:300@300.

	p := VariablePanel 

		 origin:0.0 @ 0.0

		 corner:1.0 @ 1.0

		 in:top.

	p orientation:#vertical.

	v1 := View origin:0.0 @ 0.0   corner:1.0 @ (1/4) in:p.

	v2 := View origin:0.0 @ (1/2) corner:1.0 @ (3/4) in:p.

	v3 := View origin:0.0 @ (3/4) corner:1.0 @ 1.0   in:p.

	v1 viewBackground:(Color red).

	v2 viewBackground:(Color green).

	v3 viewBackground:(Color yellow).

	top open

"

! !

!VariablePanel class methodsFor:'defaults'!

lightFormOn:aDisplay

    "use same handle as Scroller"

    ^ Scroller handleLightFormOn:aDisplay

!

shadowFormOn:aDisplay

    "use same handle as Scroller"

    ^ Scroller handleShadowFormOn:aDisplay

!

updateStyleCache

    DefaultShowHandle := StyleSheet at:'variablePanelShowHandle' default:true.

    DefaultHandleStyle := StyleSheet at:'variablePanelHandleStyle'.

    DefaultHandlePosition := StyleSheet at:'variablePanelHandlePosition' default:#right.

    DefaultHandleLevel := StyleSheet at:'variablePanelHandleLevel' default:2.

    DefaultTrackingLine := StyleSheet at:'variablePanelTrackingLine' default:false.

    DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false.

    DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black.

! !

!VariablePanel methodsFor:'accessing'!

addSubView:aView

    super addSubView:aView.

    realized ifTrue:[

	self resizeSubviews.

    ]

    "Created: 17.1.1996 / 22:41:00 / cg"

!

orientation

    ^ orientation

!

orientation:aSymbol

    orientation := aSymbol.

    self initCursor.

    self anyNonRelativeSubviews ifTrue:[

	self setupSubviews

    ].

    shown ifTrue:[

	self cursor:cursor.

	self sizeChanged:nil.

	self redraw.

    ]

!

barHeight

    "return the height of the separating bar"

    ^ barHeight

!

barHeight:nPixel

    "set the height of the separating bar"

    barHeight := nPixel.

    "if screen is very low-res, make certain bar is visible and catchable"

    (barHeight < 4) ifTrue:[

	barHeight := 4

    ].

    "make it even so spacing is equally spreadable among subviews"

    barHeight odd ifTrue:[

	barHeight := barHeight + 1

    ]

!

handleLevel:aNumber

    "define the 3D level of the handle (only with some styles).

     Normally, this is defined via styleSheet files, but this entry allows

     individual views to be manipulated."

    handleLevel := aNumber

!

handlePosition

    "return the position of the handle"

    ^ handlePosition

!

handlePosition:aSymbol

    "define the position of the handle; the argument aSymbol

     may be one of #left, #right or #center"

    handlePosition := aSymbol

!

removeSubView:aView

    "a view is removed; adjust other subviews sizes"

    super removeSubView:aView.

    shown ifTrue:[

	(superView isNil or:[superView shown]) ifTrue:[

	    self setupSubviews

	]

    ]

!

style:styleSymbol

    "define the style of the handle;

     styleSymbol may be #motif to draw a little knob or

     anything else to draw scrollBars handleForm.

     Normally, this is defined via styleSheet files, but this entry allows

     individual views to be manipulated."

    (styleSymbol ~~ handleStyle) ifTrue:[

	handleStyle := styleSymbol.

	handleStyle == #next ifTrue:[

	    shadowForm := self class shadowFormOn:device.

	    lightForm := self class lightFormOn:device.

	] ifFalse:[

	    shadowForm := lightForm := nil

	].

	shadowForm notNil ifTrue:[

	    (self is3D and:[handleStyle ~~ #motif]) ifTrue:[

		self barHeight:(shadowForm height + 2).

		barWidth := shadowForm width

	    ]

	].

	shown ifTrue:[

	    self resizeSubviews.

	    self redraw

	]

    ]

! !

!VariablePanel methodsFor:'drawing'!

drawHandleAtX:hx y:hy

    "draw a single handle at hx/hy"

    |h w x y m|

    shadowForm notNil ifTrue:[

	h := shadowForm height.

	w := shadowForm width .

    ] ifFalse:[

	h := w := barHeight - 4.

    ].

    self paint:viewBackground.

    orientation == #vertical ifTrue:[

	self fillRectangleX:margin y:hy 

		      width:(width - margin - margin) 

		     height:barHeight.

	(handleStyle ~~ #normal and:[handleStyle ~~ #mswindows]) ifTrue:[

	    m := (barHeight - h) // 2.

	    shadowForm isNil ifTrue:[

		y := hy + (barHeight // 2).

		separatingLine ifTrue:[

		    self paint:shadowColor.

		    self displayLineFromX:margin y:y toX:(width - margin) y:y.

		    y := y + 1.

		    self paint:lightColor.

		    self displayLineFromX:margin y:y toX:(width - margin) y:y.

		].

		self paint:viewBackground.

		self fillRectangleX:(hx - barWidth) y:hy 

			     width:(barWidth + barWidth) 

			     height:h.

		handleStyle == #line ifTrue:[

		    self paint:handleColor.

		    self displayLineFromX:hx - barWidth y:y toX:hx + barWidth y:y

		] ifFalse:[

		    y := hy.   

		    handleStyle == #st80 ifTrue:[

			y := y - 1

		    ].

		    self drawEdgesForX:(hx - barWidth)

				     y:(y + m)

				 width:(barWidth + barWidth)

				height:h 

				 level:handleLevel.

		    handleStyle == #iris ifTrue:[

			self paint:handleColor.

			self fillDeviceRectangleX:(hx - barWidth + 2)

						y:(y + m + 2)