"{ Encoding: utf8 }"

"
 COPYRIGHT (c) 1992 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.
"
"{ Package: 'stx:libwidg' }"

"{ NameSpace: Smalltalk }"

VariablePanel subclass:#VariableHorizontalPanel
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Views-Layout'
!

!VariableHorizontalPanel class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 1992 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 is only here for backward compatibility;
    all functionality is now in VariablePanel. Its orientation can now
    be changed dynamically.

    A View to separate its subviews horizontally by a movable bar
    to adjust the size-ratios.
    The bar-handle is either an exposed knob (knobStyle == #motif)
    or the forms defined in Scroller (knobStyle ~~ #motif)
    or nothing.

    The subvies dimensions MUST be given as relative sizes;
    typically creation is done as:

        p := VariableHorizontalPanel in:superView.
        v1 := <someViewClass> origin:0.0 @ 0.0
                              corner:0.5 @ 1.0
                                  in:p.
        v2 := <someViewClass> origin:0.5 @ 0.0
                              corner:0.8 @ 1.0
                                  in:p.
        v3 := <someViewClass> origin:0.8 @ 0.0
                              corner:1.0 @ 1.0
                                  in:p.

    See examples.

    [author:]
        Claus Gittinger
"
!

examples
"
   VariableHorizontalPanel is simply setting its orientation
   to #horizontal. See more examples there.

   dummy example: 2 views side-by-side
                                                                        [exBegin]
        |top p v1 v2|

        top := StandardSystemView new.
        top extent:300@200.

        p := VariableHorizontalPanel 
                 origin:0.0 @ 0.0
                 corner:1.0 @ 1.0
                 in:top.

        v1 := View 
                 origin:0.0 @ 0.0
                 corner:0.5 @ 1.0
                 in:p.
        v1 viewBackground:Color red.

        v2 := View 
                 origin:0.5 @ 0.0
                 corner:1.0 @ 1.0
                 in:p.
        v2 viewBackground:Color green.

        top open
                                                                        [exEnd]


   concrete example: a selectionInListView and a TextView side-by-side
   (not useful - need scrollBars; see next example)
                                                                        [exBegin]
        |top p v1 v2|

        top := StandardSystemView new.
        top extent:400@300.

        p := VariableHorizontalPanel 
                 origin:0.0 @ 0.0
                 corner:1.0 @ 1.0
                 in:top.

        v1 := SelectionInListView 
                 origin:0.0 @ 0.0
                 corner:0.5 @ 1.0
                 in:p.
        v1 list:('/etc' asFilename directoryContents).
        v1 useIndex:false.
        v1 action:[:name | v2 contents:('/etc/' , name) 
                                asFilename contentsOfEntireFile
                  ].

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

        top open
                                                                        [exEnd]


    better - with scrollBars (but that's another story ... see ScrollableView examples for more):
                                                                        [exBegin]
        |top p v1 v2|

        top := StandardSystemView new.
        top extent:400@300.

        p := VariableHorizontalPanel 
                 origin:0.0 @ 0.0
                 corner:1.0 @ 1.0
                 in:top.

        v1 := ScrollableView for:SelectionInListView 
                 origin:0.0 @ 0.0
                 corner:0.5 @ 1.0
                 in:p.
        v1 list:('/etc' asFilename directoryContents).
        v1 useIndex:false.
        v1 action:[:name | v2 contents:('/etc/' , name) 
                                asFilename contentsOfEntireFile
                  ].

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

        top open
                                                                        [exEnd]


   another stupid example: 3-views side-by-side
                                                                        [exBegin]
        |top p v1 v2 v3|

        top := StandardSystemView new.
        top extent:550@200.

        p := VariableHorizontalPanel 
                 origin:0.0 @ 0.0
                 corner:1.0 @ 1.0
                 in:top.

        v1 := SelectionInListView 
                 origin:0.0 @ 0.0
                 corner:0.3 @ 1.0
                 in:p.
        v1 level:-1.
        v1 list:#('one' 'two' 'three' nil 'dont expect' 'something' 'to happen here').

        v2 := EditTextView 
                 origin:0.3 @ 0.0
                 corner:0.6 @ 1.0
                 in:p.
        v2 contents:'nonScrollable\EditTextView' withCRs.

        v3 := ScrollableView 
                 for:TextView 
                 origin:0.6 @ 0.0 
                 corner:1.0 @ 1.0
                 in:p.
        v3 contents:'scrollable\TextView\\(read only)\\\\\\\\\\\\\\\\\concratulations !!\you managed\to scroll down' withCRs.
        top open
                                                                        [exEnd]
"
! !

!VariableHorizontalPanel methodsFor:'initialization'!

initialize
    orientation := #horizontal.
    super initialize.

    "Modified: 7.3.1996 / 14:08:35 / cg"
! !

!VariableHorizontalPanel class methodsFor:'documentation'!

version
    ^ '$Header$'
! !