"

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

"

UIObjectView subclass:#UIPainterView

		categoryName'

	classVariableNames:'HandCursor'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

Object subclass:#ViewProperty

	instanceVariableNames:'aspectSelector changeSelector name nameIndex view elementClass

		labelSelector identifier'

	classVariableNames:'Identifier'

	poolDictionaries:''

	privateIn:UIPainterView

!

UIPainterView::ViewProperty subclass:#GroupProperties

	instanceVariableNames:'controlledObjects group'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIPainterView

!

!UIPainterView class methodsFor:'documentation'!

copyright

"

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

"

    not yet finished, not yet published, not yet released.

"

! !

!UIPainterView class methodsFor:'defaults'!

defaultMenuMessage   

    "This message is the default yo be sent to the menuHolder to get a menu

    "

    ^ #menu

! !

!UIPainterView methodsFor:'accessing'!

application

    self halt.

    ^ nil

    "Modified: 6.9.1995 / 00:46:44 / claus"

!

className

    ^ className

    "Modified: 5.9.1995 / 18:41:30 / claus"

!

className:aString

    className := aString

    "Modified: 5.9.1995 / 18:47:17 / claus"

!

methodName

    ^ methodName

    "Modified: 5.9.1995 / 18:41:34 / claus"

!

methodName:aString

    methodName := aString

    "Modified: 5.9.1995 / 18:47:27 / claus"

!

selectNames:aStringOrCollection

    |prop coll s|

    (aStringOrCollection isNil or:[aStringOrCollection isEmpty]) ifTrue:[

        ^ self unselect

    ].

    (s := aStringOrCollection) isString ifFalse:[

        s size == 1 ifTrue:[

            s := s first

        ] ifFalse:[

            coll := OrderedCollection new.

            s do:[:aName|

                (prop := self propertyOfName:aName) notNil ifTrue:[

                    coll add:(prop view)

                ]

            ].

            coll size == 1 ifTrue:[ ^ self select:(coll at:1) ].

            coll size == 0 ifTrue:[ ^ self unselect ].

            self hideSelection.

            selection := coll.

            self showSelection.

          ^ self changed:#selection

        ]

    ].

    prop := self propertyOfName:s.

    prop isNil ifTrue:[^ self unselect]

              ifFalse:[^ self select:(prop view)]

! !

changeClass

    |box classNameHolder superclassNameHolder|

    classNameHolder := (className ? 'MyClass') asValue.

    superclassNameHolder := (superclassName ? 'ApplicationModel') asValue.

    box := DialogBox new.

    box addTextLabel:'class:'.

    box addInputFieldOn:classNameHolder.

    box addTextLabel:'super class:'.

    box addInputFieldOn:superclassNameHolder.

    box addAbortButton; addOkButton.

    box open.

    box accepted ifTrue:[

        className := classNameHolder value.

        superclassName := superclassNameHolder value.

    ].

!

changeVariables

    | box names propList p n newName|

    names := VariableArray new.

    propList := VariableArray new.

    viewProperties do:[:props |

        n := props name.

        n notNil ifTrue:[

            names add:n.

            propList add:props

        ]

    ].

    box := BuilderVariablesBox new.

    box list:names.

    box selectAction:[:selection |

        p := propList at:selection

    ].

    box okAction:[

        newName := box enterValue.

Transcript showCR:('renamed ' , (p name) , 'to:' , newName).

        p name:newName

    ].

    box showAtPointer

! !

!UIPainterView methodsFor:'creating subviews'!

addProperties:properties for:aView

    "set properties to a view and add properties to viewProperties.

     In case that properties are nil properties are created

    "

    |name props|

    (props := properties) isNil ifTrue:[

        props := self propertiesForNewView:aView.

    ].

    viewProperties add:props.

    name := props name.

    (aView respondsTo:#label:) ifTrue:[

        aView label:name

    ].

    aView name:name.

  ^ props

!

propertiesForNewView:aView

    |cls props index|

    cls := aView class.

    props := ViewProperty new.

    props view:aView.

    props elementClass:cls.

    index := self variableIndexForClass:cls.

    props nameIndex:index.

    props name:(self variableNameForClass:cls index:index).

"/    props initCode:nil.       --- add user-defined init code later

    ^ props

!

setupCreatedObject:anObject

    "set default properties for a created object

    "

    |props|

    props := self addProperties:nil for:anObject.

    undoHistory transaction:#create text:(props name) do:[

        self undoCreate:(props identifier).

    ].

! !

generateClassDefinition

    |defCode|

    defCode := superclassName , ' subclass:#' , className , '\'.

    defCode := defCode , '  instanceVariableNames:'''.

    defCode := defCode , self subviewVariableNames , '''\'.

    defCode := defCode , '  classVariableNames:''''\'.

    defCode := defCode , '  poolDictionaries:''''\'.

    defCode := defCode , '  category:''' , categoryName , '''\'.

    defCode := defCode , Character excla asString , '\\'.

generateCode

    code := ''.

    ^ code withCRs

    "Modified: 5.9.1995 / 20:57:53 / claus"

! !

!UIPainterView ignoredMethodsFor:'generating output'!

generateInitCodeForGroup:aGroup

    " <name> := <GroupClass> in:<name-of-superview>"

    p := self propertyOfGroup:aGroup.

    name := p at:#variableName.

    c := '  ' , name , ' := ' , (aGroup class name) , ' new.\'.

    code := code , c withCRs.

    " <name> <symbol>:<value>"

    objects := p at:#controlledObjects ifAbsent:[nil].

    objects notNil ifTrue:[

    ].

    code := code , c withCRs

!

generateInitCodeForOtherStuff

    "generate code for groups"

    viewProperties do:[:props |

!

generateInitCodeForView:aView

    " <name> := <ViewClass> in:<name-of-superview>"

    p := self propertyOfView:aView.

    name := p at:#variableName.

    c := '    ' , name , ' := ' ,

    " <name> origin:(...) extent:(...)"

    c := c , '    ' , name , ' origin:(', aView origin printString , ')'

    moreCode := p at:#initCode ifAbsent:nil.

    moreCode notNil ifTrue:[

    ].

    code := code , c withCRs.

    " <name> <symbol>:<value>"

    outlets := p at:#outlets ifAbsent:[nil].

    outlets notNil ifTrue:[

    ].

    self subviewsOf:aView do:[:v |

    "Modified: 5.9.1995 / 20:06:07 / claus"

!

generateInitMethod

    defCode := Character excla asString ,

    defCode := defCode , 'initialize\'.

    defCode := defCode , '    super initialize.\'.

    defCode := defCode , '    self setupSubViews.\'.

    defCode := defCode , '    self setupLocalStuff\'.

    defCode := defCode , Character excla asString , '\\'.

    defCode := defCode , 'setupSubViews\'.

    self subviewsOf:self do:[:v |

    ].

    code := code , '    ^ self\' withCRs.

    defCode := Character excla asString , '\\'.

    defCode := defCode , 'setupLocalStuff\'.

    defCode := defCode , '    ^ self\'.

    defCode := defCode , Character excla asString , ' ' ,

! !

!UIPainterView methodsFor:'generating output'!

generateSpecFor:something

    "generate a spec for a view or collection of views

    "

    |spec views|

    something notNil ifTrue:[

        something isCollection ifTrue:[views := something]

                              ifFalse:[views := Array with:something].

        spec := views collect:[:aView||topSpec|

            topSpec := aView specClass 

                            fromView:aView 

                            callBack:[:spec :aSubView | 

"/                                aSubView geometryLayout:(aSubView geometryLayout copy)

                            ].

            topSpec

        ]

    ].

    ^ spec

!

    subViews remove:inputView.

    [

        spec := FullSpec fromView:self callBack:[:newSpec :view | self stuffPropertiesFrom:view intoSpec:newSpec].

    ] valueNowOrOnUnwindDo:[

        subViews addFirst:inputView.

    ].

    str := WriteStream on:String new.

    self prettyPrintSpecArray:specArray on:str indent:5.

    code := Character excla asString 

            , className , ' class methodsFor:''interface specs'''