"

 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.

"

ToolApplicationModel subclass:#UIPainter

	instanceVariableNames:'treeView selectionPanel tabSelection specClass specSelector

		specSuperclass aspects layoutCanvas helpCanvas specCanvas

		transcript'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

SelectionInTreeView subclass:#TreeView

	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled windowSpec'

	classVariableNames:'Images'

	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:'accessing'!

label

    ^'GUI Builder'

! !

!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:#(

#accept

'Writes back changes.'

#alignSelectionBottom

'Aligns selected widgets to the bottom edge of the dominant widget.'

#alignSelectionCenterHor

'Aligns selected widgets vertical to the center of the dominant widget.'

#alignSelectionCenterVer

'Aligns selected widgets horizontal to the center of the dominant widget.'

#alignSelectionLeft

'Aligns selected widgets to the left edge of the dominant widget.'

#alignSelectionLeftAndRight

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

#alignSelectionRight

'Aligns selected widgets to the right edge of the dominant widget.'

#alignSelectionTop

'Aligns selected widgets to the top edge of the dominant widget.'

#alignSelectionTopAndBottom

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

#cancel

'Rereads specification and layout.'

#centerSelectionHor

'Centers widgets horizontal to their top widget.'

#centerSelectionVer

'Centers vertical horizontal in contained view.'

#copyExtent

'Copies extent of the selected widget.'

#copyLayout

'Copies layout of the selected widget.'

#fileLoad

'Opens dialog to load an interface from a class.'

#fileNew

'Creates new interface.'

#filePickAnInterface

'Changes the cursor for moving it over another view to load its interface.'

#fileSave

'Saves current interface.'

#galleryShown

'Shows or hide gallery view.'

#menuAlignment

'Provides a set of alignment operation on the current selected widgets.'

#moveSelectionDown

'Moves selected widgets down.'

#moveSelectionLeft

'Moves selected widgets out of parent widget.'

#moveSelectionRight

'Moves selected widgets into next widget as child.'

#moveSelectionUp

'Moves selected widgets up.'

#painterShown

'Shows or hide painter view.'

#pasteBuffer

'Pastes widgets at current mouse position.'

#pasteExtent

'Changes extent of all selected widgets to the last copied extent.'

#pasteHeight

'Changes height of all selected widgets to the last copied extent height.'

#pasteLayout

'Changes layout of all selected widgets to the last copied layout.'

#pasteWidth

'Changes width of all selected widgets to the last copied extent width.'

#pasteWithLayout

'Pastes widgets without changing their layouts.'

#setToDefaultExtent

'Sets selected widgets to their default extent.'

#setToDefaultHeight

'Sets selected widgets to their default height.'

#setToDefaultWidth

'Sets selected widgets to their default width.'

#spreadSelectionHor

'Sets horizontal spaces between selected widgets as the same.'

#spreadSelectionVer

'Sets vertical spaces between selected widgets as the same.'

#testStartApplication

'Starts current application on loaded interface.'

)

! !

!UIPainter class methodsFor:'helpers'!

convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed

    "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

        ].

        (aString at:start) == $\ ifTrue:[

            skipLineFeed ifFalse:[

                stream nextPut:$\

            ].

            start := start + 1.

            stream cr.

            start := start + 1.

            lnSz := 0.

        ] ifFalse:[

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

                    stop := size + 1

            ].

            (aString at:(stop - 1)) == $\ ifTrue:[

                stop := stop - 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:'interface specs'!

gridParametersSpec

    "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:#gridParametersSpec

     UIPainter new openInterface:#gridParametersSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'GUI Builder'

              #'layout:' #(#LayoutFrame 44 0 416 0 325 0 613 0)

              #'label:' 'GUI Builder'

              #'min:' #(#Point 10 10)

              #'max:' #(#Point 1280 1024)

              #'bounds:' #(#Rectangle 44 416 326 614)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#FramedBoxSpec

                    #'name:' 'framedBox'

                    #'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#CheckBoxSpec

                              #'name:' 'show'

                              #'layout:' #(#Point 23 24)

                              #'model:' #showGrid

                              #'label:' 'Show grid'

                          )

                           #(#CheckBoxSpec

                              #'name:' 'align'

                              #'layout:' #(#Point 23 52)

                              #'model:' #alignToGrid

                              #'label:' 'Align to Grid'

                          )

                           #(#LabelSpec

                              #'name:' 'hrzLabel'

                              #'layout:' #(#AlignmentOrigin 148 0 99 0 1 0.5)

                              #'label:' 'Horizontal Pixels:'

                              #'adjust:' #right

                              #'resizeForLabel:' true

                          )

                           #(#InputFieldSpec

                              #'name:' 'hrzField'

                              #'layout:' #(#LayoutFrame 154 0 87 0 207 0 109 0)

                              #'model:' #hspace

                              #'type:' #numberOrNil

                          )

                           #(#LabelSpec

                              #'name:' 'vrtLabel'

                              #'layout:' #(#AlignmentOrigin 149 0 124 0 1 0.5)

                              #'label:' 'Vertical Pixels:'

                              #'adjust:' #right

                              #'resizeForLabel:' true

                          )

                           #(#InputFieldSpec

                              #'name:' 'vrtField'

                              #'layout:' #(#LayoutFrame 154 0 112 0 207 0 134 0)

                              #'model:' #vspace

                              #'type:' #numberOrNil

                          )

                        )

                    )

                    #'label:' 'Grid Parameter'

                    #'labelPosition:' #topLeft

                )

                 #(#UISubSpecification

                    #'name:' 'uISubSpecifica1'

                    #'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)

                    #'majorKey:' #ToolApplicationModel

                    #'minorKey:' #windowSpecForCommitWithoutChannels

                )

              )

          )

      )

!

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:' 'GUI Builder'

              #'layout:' #(#LayoutFrame 44 0 416 0 357 0 575 0)

              #'label:' 'GUI Builder'

              #'min:' #(#Point 10 10)

              #'max:' #(#Point 1152 900)

              #'bounds:' #(#Rectangle 44 416 358 576)

              #'usePreferredExtent:' false

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#FramedBoxSpec

                    #'name:' 'framedBox1'

                    #'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#LabelSpec

                              #'name:' 'selectorLabel'

                              #'layout:' #(#AlignmentOrigin 63 0.11 39 0 1 0.5)

                              #'label:' 'Selector:'

                              #'adjust:' #right

                              #'resizeForLabel:' true

                          )

                           #(#InputFieldSpec

                              #'name:' 'methodNameField'

                              #'layout:' #(#LayoutFrame 67 0.11 28 0 14 1.0 50 0)

                              #'tabable:' true

                              #'model:' #methodNameChannel

                          )

                           #(#LabelSpec

                              #'name:' 'classLabel'

                              #'layout:' #(#AlignmentOrigin 63 0.11 64 0 1 0.5)

                              #'label:' 'Class:'

                              #'adjust:' #right

                              #'resizeForLabel:' true

                          )

                           #(#InputFieldSpec

                              #'name:' 'classNameField'

                              #'layout:' #(#LayoutFrame 67 0.11 53 0 14 1.0 75 0)

                              #'tabable:' true

                              #'model:' #classNameChannel

                          )

                           #(#LabelSpec

                              #'name:' 'superClassLabel'

                              #'layout:' #(#AlignmentOrigin 63 0.11 89 0 1 0.5)

                              #'label:' 'Superclass:'

                              #'adjust:' #right

                              #'resizeForLabel:' true

                          )

                           #(#ComboBoxSpec

                              #'name:' 'superclassNameComboBox'

                              #'layout:' #(#LayoutFrame 67 0.11 78 0 14 1.0 100 0)

                              #'tabable:' true

                              #'model:' #superclassNameChannel

                              #'comboList:' #superclassNameDefaults

                          )

                        )

                    )

                    #'label:' 'Class and selector for interface'

                    #'labelPosition:' #topLeft

                )

                 #(#UISubSpecification

                    #'name:' 'uISubSpecifica1'

                    #'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)

                    #'majorKey:' #ToolApplicationModel

                    #'minorKey:' #windowSpecForCommitWithoutChannels

                )

              )

          )

      )

!

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

    "