"

 COPYRIGHT (c) 1995 by eXept Software AG

              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.

"

ApplicationModel subclass:#UIPainter

	instanceVariableNames:'treeView selectionPanel tabSelection specClass specSelector

		specSuperclass aspects layoutCanvas helpCanvas specCanvas

		transcript'

	classVariableNames:'IconStepUp IconStepOut IconStepIn IconStepDown'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

SelectionInTreeView subclass:#TreeView

	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled imageMasterParent

		imageEmptyParent imageMasterChild windowSpec'

	classVariableNames:'ImageMasterParent ImageMasterChild ImageEmptyParent'

	poolDictionaries:''

	privateIn:UIPainter

!

!UIPainter class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1995 by eXept Software AG

              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

"

    GUI-Builder:

    this class allows the user to build its own applications providing a graphical

    user interface to buildin components and to define the behavior of the components

    during runtime. The resulting specifications can be installed as methods on 

    classes, typically subclasses of an ApplicationModel. These specifications

    are used by the UIBuilder to generate the application window and its component

    structues when open the application.

    [start with:]

        UIPainter open

    [author:]

        Claus Gittinger

        Claus Atzkern

    [see also:]

        UIBuilder

        ApplicationModel

        UISpecification

"

! !

!UIPainter class methodsFor:'instance creation'!

openOnClass:aClass andSelector:aSelector

    "open up an interface builder, fetching a spec from aClass

     via some selector

    "

    ^ self new openOnClass:aClass andSelector:aSelector

!

painter:aBuilderView

    "set the painter

    "

    |application|

    application := self new.

    application painter:aBuilderView.

  ^ application open

! !

!UIPainter class methodsFor:'ST-80 queries'!

preferenceFor:aSymbol

    "ST-80 compatible; always returns false

    "

    ^ false

! !

!UIPainter class methodsFor:'help specs'!

helpSpec

    "return a dictionary filled with helpKey -> helptext associations.

     These are used by the activeHelp tool."

    "

    UIHelpTool openOnClass:UIPainter    

    "

  ^ super helpSpec addPairsFrom:#(

#moveSelectionLeft

'move selected widgets left while pressing the button'

#setToDefaultWidth

'set selected widgets to their default width'

#pasteBuffer

'paste widgets at current mouse position'

#moveSelectionUp

'move selected widgets up while pressing the button'

#galleryShown

'show or hide gallery view'

#moveSelectionDown

'move selected widgets down while pressing the button'

#spreadSelectionVer

'vertical spacing between selected widgets is made the same'

#menuChangeHierarchy

'change hierarchy of the selected widget'

#copyExtent

'copy extent of the selected widget'

#moveSelectionRight

'move selected widgets right while pressing the button'

#cancel

'reread specification and layout'

#pasteWithLayout

'paste widgets without changing their layouts'

#alignSelectionRight

'align selected widgets to the right edge of the dominant widget'

#alignSelectionLeftAndRight

'align selected widgets to the right and left edge of the dominant widget'

#pasteWidth

'change width of all selected widgets to the last copied extent width'

#alignSelectionTopAndBottom

'align selected widgets to the top and bottom edge of the dominant widget'

#copyLayout

'copy layout of the selected widget'

#painterShown

'show or hide painter view'

#pasteExtent

'change extent of all selected widgets to the last copied extent'

#pasteHeight

'change height of all selected widgets to the last copied extent height'

#accept

'write back changes'

#centerSelectionVer

'center vertical horizontal in contained view'

#centerSelectionHor

'center widgets horizontal to their top widget'

#menuAlignment

'provides a set of alignment operation on the current selected widgets'

#alignSelectionCenterVer

'align selected widgets horizontal to the center of the dominant widget'

#pasteLayout

'change layout of all selected widgets to the last copied layout'

#alignSelectionLeft

'align selected widgets to the left edge of the dominant widget'

#spreadSelectionHor

'horizontal spacing between selected widgets is made the same'

#alignSelectionBottom

'align selected widgets to the bottom edge of the dominant widget'

#setToDefaultExtent

'set selected widgets to their default extent'

#alignSelectionCenterHor

'align selected widgets vertical to the center of the dominant widget'

#alignSelectionTop

'align selected widgets to the top edge of the dominant widget'

#setToDefaultHeight

'set selected widgets to their default height'

)

! !

!UIPainter class methodsFor:'helpers'!

convertString:aString maxLineSize:maxCharactersPerLine

    "converts a string to a string collection with maximum characters

     per line

    "

    |stream

        max     "{ Class:SmallInteger }"

        size    "{ Class:SmallInteger }"

        start   "{ Class:SmallInteger }"

        stop    "{ Class:SmallInteger }"

        cpySz   "{ Class:SmallInteger }"

        lnSz    "{ Class:SmallInteger }"|

    maxCharactersPerLine < 20 ifFalse:[max := maxCharactersPerLine - 1]

                               ifTrue:[max := 20].

    (size := aString size) <= max ifTrue:[

        ^ aString

    ].

    start  := 1.

    lnSz   := 0.

    stream := (String new:size) writeStream.

    [start <= size] whileTrue:[

        (start := aString indexOfNonSeparatorStartingAt:start) == 0 ifTrue:[

            ^ stream contents

        ].

        (stop := aString indexOfSeparatorStartingAt:start) == 0 ifTrue:[

                stop := size + 1

        ].

        cpySz := stop - start.

        lnSz == 0 ifFalse:[

            (lnSz := lnSz + cpySz) >= max ifTrue:[stream cr.    lnSz := cpySz ]

                                         ifFalse:[stream space. lnSz := lnSz + 1]

        ] ifTrue:[

            lnSz := cpySz

        ].

        stream nextPutAll:aString startingAt:start to:(stop - 1).

        start := stop.

    ].

    ^ stream contents

! !

!UIPainter class methodsFor:'icons'!

iconAlignB

    "returns image assigned to align bottom

    "

    ^ Image fromFile:'b_alignB.xbm'

!

iconAlignCenterH

    "returns image assigned to center horizontal

    "

    ^ Image fromFile:'b_alignCH.xbm'

!

iconAlignCenterV

    "returns image assigned to center vertical

    "

    ^ Image fromFile:'b_alignCV.xbm'

!

iconAlignL

    "returns image assigned to align left

    "

    ^ Image fromFile:'b_alignL.xbm'

!

iconAlignLR

    "returns image assigned to align left and right

    "

    ^ Image fromFile:'b_alignLR.xbm'

!

iconAlignR

    "returns image assigned to align right

    "

    ^ Image fromFile:'b_alignR.xbm'

!

iconAlignT

    "returns image assigned to align top

    "

    ^ Image fromFile:'b_alignT.xbm'

!

iconAlignTB

    "returns image assigned to align top and bottom

    "

    ^ Image fromFile:'b_alignTB.xbm'

!

iconStepDown

    "returns image assigned to step down (change hierarchy).

    "

    IconStepDown isNil ifTrue:[

        IconStepDown := ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal

    ].

  ^ IconStepDown

"

IconStepDown := nil

"

!

iconStepIn

    "returns image assigned to step in (change hierarchy).

    "

    IconStepIn isNil ifTrue:[

        IconStepIn := ((Image fromFile:'stepIn.xpm') rotated:90) flipHorizontal

    ].

  ^ IconStepIn

!

iconStepOut

    "returns image assigned to step out (change hierarchy).

    "

    IconStepOut isNil ifTrue:[

        IconStepOut := ((Image fromFile:'stepOut.xpm') rotated:90) flipHorizontal

    ].

  ^ IconStepOut

!

iconStepUp

    "returns image assigned to step up (change hierarchy).

    "

    IconStepUp isNil ifTrue:[

        IconStepUp := ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal flipVertical

    ].

  ^ IconStepUp

"

IconStepUp := nil

"

! !

!UIPainter class methodsFor:'interface specs'!

nameAndSelectorSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:UIPainter andSelector:#nameAndSelectorSpec

     UIPainter new openInterface:#nameAndSelectorSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'NameAndSelectorSpec'

              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

              #'label:' 'Painter'

              #'bounds:' #(#Rectangle 0 0 391 170)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'classLabel'

                    #'layout:' #(#AlignmentOrigin 50 0.11 51 0 1 0.5)

                    #'label:' 'class:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'superClassLabel'

                    #'layout:' #(#AlignmentOrigin 50 0.11 77 0 1 0.5)

                    #'label:' 'superclass:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'selectorLabel'

                    #'layout:' #(#AlignmentOrigin 50 0.11 105 0 1 0.5)

                    #'label:' 'selector:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'methodNameField'

                    #'layout:' #(#LayoutFrame 51 0.11 95 0 -2 1.0 117 0)

                    #'tabable:' true

                    #'model:' #methodNameChannel

                )

                 #(#LabelSpec

                    #'name:' 'boxLabel'

                    #'layout:' #(#Point 2 10)

                    #'label:' 'class & selector for code:'

                    #'adjust:' #left

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'classNameField'

                    #'layout:' #(#LayoutFrame 51 0.11 39 0 -2 1.0 61 0)

                    #'tabable:' true

                    #'model:' #classNameChannel

                )

                 #(#ComboBoxSpec

                    #'name:' 'comboBox1'

                    #'layout:' #(#LayoutFrame 51 0.11 67 0 0 1.0 89 0)

                    #'tabable:' true

                    #'model:' #superclassNameChannel

                    #'comboList:' #superclassNameDefaults

                )

                 #(#HorizontalPanelViewSpec

                    #'name:' 'commitPanel'

                    #'layout:' #(#LayoutFrame 0 0.0 -26 1.0 0 1.0 -2 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'button1'

                              #'label:' 'cancel'

                              #'tabable:' true

                              #'model:' #cancel

                              #'extent:' #(#Point 190 24)

                          )

                           #(#ActionButtonSpec

                              #'name:' 'button2'

                              #'label:' 'ok'

                              #'tabable:' true

                              #'isDefault:' true

                              #'model:' #accept

                              #'extent:' #(#Point 190 22)

                          )

                        )

                    )

                    #'horizontalLayout:' #fitSpace

                    #'verticalLayout:' #fit

                    #'horizontalSpace:' 3

                    #'verticalSpace:' 3

                )

              )

          )

      )

    "Modified: 28.7.1997 / 16:49:49 / cg"

!

windowSpec

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:UIPainter andSelector:#windowSpec

     UIPainter new openInterface:#windowSpec

    "

    "UIPainter open"

    <resource: #canvas>