"

 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:'activeHelpTool layoutTool specTool treeView selectionPanel

		tabSelection specClass specSelector specSuperclass aspects'

	classVariableNames:'IconStepUp IconStepOut IconStepIn IconStepDown'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

SelectionInTreeView subclass:#TreeView

	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled imageMasterParent

		imageMasterChild'

	classVariableNames:'ImageMasterParent ImageMasterChild'

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

listHolder:aListHolder

    |application|

    application := self new.

    application objectList:aListHolder.

  ^ application open

!

openOnClass:aClass andSelector:aSelector

    ^ self new openOnClass:aClass andSelector:aSelector

    "Created: 1.7.1997 / 19:16:59 / cg"

!

painter:aBuilderView

    |application|

    application := self new.

    application painter:aBuilderView.

  ^ application open

! !

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

preferenceFor:aSymbol

    ^ false

! !

!UIPainter class methodsFor:'help specs'!

helpSpec

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

     These are used by the activeHelp tool.

    "

  ^ super helpSpec addPairsFrom:#(

#alignSelectionCenterVer

'align selection vertical'

#alignSelectionLeft

'align selected components to the left edge of the

dominant component ( underlined )'

#alignSelectionRight

'align selected components to the right edge of the

dominant component ( underlined )'

#alignSelectionLeftAndRight

'align selected components to the right and left edge

of the dominant component ( underlined )'

#alignSelectionTop

'align selected components to the top edge of the

dominant component ( underlined )'

#alignSelectionBottom

'align selected components to the bottom edge of the

dominant component ( underlined )'

#alignSelectionTopAndBottom

'align selected components to the top and bottom edge

of the dominant component ( underlined )'

#alignSelectionCenterVer

'align selected components horizontal to the center of

the dominant component ( underlined )'

#alignSelectionCenterHor

'align selected components vertical to the center of

the dominant component ( underlined )'

#spreadSelectionVer

'vertical spacing between selected components is made the same'

#spreadSelectionHor

'horizontal spacing between selected components is made the same'

#centerSelectionHor

'center components horizontal in contained view'

#centerSelectionVer

'center vertical horizontal in contained view'

#setToDefaultExtent

'set selected components to their default extent'

#setToDefaultWidth

'set selected components to their default width'

#setToDefaultHeight

'set selected components to their default height'

#copyExtent

'copy extent of the selected component'

#pasteExtent

'change extent of all selected components to the

last copied extent'

#pasteWidth

'change width of all selected components to the

last copied extent width'

#pasteHeight

'change height of all selected components to the

last copied extent height'

#copyLayout

'copy layout of the selected component'

#pasteLayout

'change layout of all selected components to the

last copied layout'

#pasteBuffer

'paste components at current mouse position'

#pasteWithLayout

'paste components without changing their layouts'

)

! !

!UIPainter class methodsFor:'icons'!

iconAlignB

    ^ Image fromFile:'b_alignB.xbm'

!

iconAlignCenterH

    ^ Image fromFile:'b_alignCH.xbm'

!

iconAlignCenterV

    ^ Image fromFile:'b_alignCV.xbm'

!

iconAlignL

    ^ Image fromFile:'b_alignL.xbm'

!

iconAlignLR

    ^ Image fromFile:'b_alignLR.xbm'

!

iconAlignR

    ^ Image fromFile:'b_alignR.xbm'

!

iconAlignT

    ^ Image fromFile:'b_alignT.xbm'

!

iconAlignTB

    ^ Image fromFile:'b_alignTB.xbm'

!

iconStepDown

    IconStepDown isNil ifTrue:[

        IconStepDown := self iconStepUp flipHorizontal

    ].

  ^ IconStepDown

!

iconStepIn

    IconStepIn isNil ifTrue:[

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

    ].

  ^ IconStepIn

!

iconStepOut

    IconStepOut isNil ifTrue:[

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

    ].

  ^ IconStepOut

!

iconStepUp

    IconStepUp isNil ifTrue:[

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

    ].

  ^ IconStepUp

! !

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

              #'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 45 0.11 51 0 1 0.5)

                    #'label:' 'class:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'superClassLabel'

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

                    #'label:' 'superclass:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'selectorLabel'

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

                    #'label:' 'selector:'

                    #'adjust:' #right

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'methodNameField'

                    #'layout:' #(#LayoutFrame 47 0.11 95 0 -5 1.0 117 0)

                    #'tabable:' true

                    #'model:' #methodNameChannel

                )

                 #(#LabelSpec

                    #'name:' 'boxLabel'

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

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

                    #'adjust:' #left

                    #'resizeForLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'classNameField'

                    #'layout:' #(#LayoutFrame 47 0.11 39 0 -5 1.0 61 0)

                    #'tabable:' true

                    #'model:' #classNameChannel

                )

                 #(#ComboBoxSpec

                    #'name:' 'comboBox1'

                    #'layout:' #(#LayoutFrame 47 0.11 67 0 -5 1.0 89 0)

                    #'tabable:' true

                    #'model:' #superclassNameChannel

                    #'comboList:' #superclassNameDefaults

                )

                 #(#HorizontalPanelViewSpec

                    #'name:' 'commitPanel'

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

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'button1'

                              #'label:' 'cancel'

                              #'tabable:' true

                              #'model:' #cancel

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

                          )

                           #(#ActionButtonSpec

                              #'name:' 'button2'

                              #'label:' 'ok'

                              #'tabable:' true

                              #'isDefault:' true

                              #'model:' #accept

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

                          )

                        )

                    )

                    #'horizontalLayout:' #fitSpace

                    #'verticalLayout:' #fit

                    #'horizontalSpace:' 3

                    #'verticalSpace:' 3

                )

              )

          )

      )

    "Modified: 24.6.1997 / 18:50:14 / 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>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'uIPainterView'

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

              #'label:' 'Tree-View'

              #'bounds:' #(#Rectangle 0 0 561 450)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#MenuPanelSpec

                    #'name:' 'menuPullDown'

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

                    #'tabable:' true

                    #'menu:' #menuPullDown

                )

                 #(#NoteBookViewSpec

                    #'name:' 'noteBook'

                    #'layout:' #(#LayoutFrame 0 0.4 59 0.0 0 1.0 -55 1.0)

                    #'enableChannel:' #enableChannel

                    #'tabable:' true

                    #'menu:' #tabList

                    #'style:' 

                     #(#FontDescription

                        #helvetica #medium

                        #roman #'10'

                    )

                    #'model:' #tabModel

                    #'tabWidget:' #Window

                    #'canvas:' #noteBookView

                )

                 #(#HorizontalPanelViewSpec

                    #'name:' 'modifyPanel'

                    #'layout:' #(#LayoutFrame 0 0.4 -55 1.0 0 1.0 -25 1.0)

                    #'component:' 

                     #(#SpecCollection

                        #'collection:' 

                         #(

                           #(#ActionButtonSpec

                              #'name:' 'cancelButton'

                              #'label:' 'cancel'

                              #'tabable:' true

                              #'model:' #cancel

                              #'enableChannel:' #modifiedChannel

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

                          )

                           #(#ActionButtonSpec

                              #'name:' 'acceptButton'

                              #'label:' 'ok'

                              #'tabable:' true

                              #'model:' #accept

                              #'enableChannel:' #modifiedChannel

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

                          )

                        )

                    )

                    #'level:' 0

                    #'horizontalLayout:' #fitSpace

                    #'verticalLayout:' #fitSpace

                    #'horizontalSpace:' 3

                    #'verticalSpace:' 3

                )

                 #(#LabelSpec

                    #'name:' 'helpInfo'

                    #'layout:' #(#LayoutFrame 2 0.0 -25 1.0 -2 1.0 -2 1.0)

                    #'level:' -1

                    #'adjust:' #left

                )

                 #(#ToggleSpec

                    #'name:' 'galleryLabel'

                    #'layout:' #(#LayoutFrame -162 1.0 1 0 -82 1.0 23 0)

                    #'label:' 'Gallery'

                    #'model:' #galleryShown

                    #'isTriggerOnDown:' true

                    #'showLamp:' true

                    #'lampColor:' #(#Color 100.0 100.0 0.0)

                )

                 #(#ToggleSpec

                    #'name:' 'painterLabel'

                    #'layout:' #(#LayoutFrame -81 1.0 1 0 -1 1.0 23 0)

                    #'label:' 'Painter'

                    #'model:' #painterShown

                    #'isTriggerOnDown:' true

                    #'showLamp:' true

                    #'lampColor:' #(#Color 100.0 100.0 0.0)

                )

                 #(#ArbitraryComponentSpec

                    #'name:' 'treeView'

                    #'layout:' #(#LayoutFrame 0 0.0 59 0 0 0.4 -25 1.0)