"

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

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

SelectionInTreeView subclass:#TreeView

	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled windowSpec'

	classVariableNames:''

	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, eXept Software AG

        Claus Atzkern, eXept Software AG

    [see also:]

        UIBuilder

        ApplicationModel

        UISpecification

"

! !

!UIPainter class methodsFor:'instance creation'!

openOnClass:aClass andSelector:aSelector

    "open a GUI Painter on aClass and (windowSpec) aSelector

    "

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

defaultNameOfCanvas

    "returns the default name (id) of the application

    "

    ^'NewApplication'

! !

!UIPainter class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:UIPainter    

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#alignSelectionBottom

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

#alignSelectionCenterHor

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

#alignSelectionCenterVer

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

#alignSelectionLeft

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

#alignSelectionLeftAndRight

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

#alignSelectionRight

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

#alignSelectionTop

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

#alignSelectionTopAndBottom

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

#centerSelectionHor

'Centers the selected widgets horizontally to their contained widget.'

#centerSelectionVer

'Centers the selected widgets vertically in their contained widget.'

#changePositionDown

'Changes the position of the widgets to the bottom.'

#changePositionLeft

'Changes the position of the widgets to the left.'

#changePositionRight

'Changes the position of the widgets to the right.'

#changePositionUp

'Changes the position of the widgets to the top.'

#editDimensionCopyExtent

'Copies the extent of the selected widgets.'

#editDimensionCopyLayout

'Copies the layout of the selected widgets.'

#editDimensionDefaultExtent

'Sets the selected widgets to their default extent.'

#editDimensionDefaultHeight

'Sets the selected widgets to their default height.'

#editDimensionDefaultWidth

'Sets the selected widgets to their default width.'

#editDimensionPasteExtent

'Sets the extent of the selected widgets to the last copied extent.'

#editDimensionPasteHeight

'Sets the height of the selected widgets to the height of the last copied layout/extent.'

#editDimensionPasteLayout

'Sets the layout of the selected widgets to the last copied layout.'

#editDimensionPasteWidth

'Sets the width of the selected widgets to the width of the last copied layout/extent.'

#editInspectSpec

'Opens an inspector on the spec of the selected widget.'

#editOpenSpecDocumentation

'Opens the documentation of the selected widget.'

#fileBrowseAspectMethods

'Opens a System Browser to browse the aspect methods.'

#fileLoad

'Opens a dialog to load a window spec from a class.'

#fileLoadSubspec

'Opens a dialog to load an sub spec from a class.'

#fileNew

'Creates a new window spec.'

#filePickAnInterface

'Changes the cursor for moving it over another interface application to load its window spec.'

#fileSave

'Saves current window spec on current class and if modified the help spec.'

#fileSaveAs

'Opens a dialog to select or create a class and selector in order to save current window spec.'

#fileShowWindowSpec

'Opens a Workspace showing the current window spec.'

#generateAspectMethods

'Generates aspect methods for defined aspect selectors of the widgets.'

#generateHookMethods

'Generates startup/release methods. (#closeRequest, #postBuildWith:, #postOpenWith:)'

#moveWidgetDown

'Moves the selected widget one step down.'

#moveWidgetInto

'Moves the selected widget into next widget as child widget.'

#moveWidgetOut

'Moves the selected widget out of its parent widget.'

#moveWidgetUp

'Moves the selected widget one step up.'

#pasteBuffer

'Pastes the widgets of the clipboard at current mouse position.'

#pasteWithLayout

'Pastes the widgets of the clipboard without a changing of their layouts.'

#settingsCanvas

'Shows or hides the canvas window.'

#settingsGallery

'Shows or hides the gallery window.'

#settingsGridManager

'Opens a dialog to show/hide the grid points or to change the distances between them.'

#settingsRedefineAspectMethods

'Turns on/off the permission of redefinition of the aspect methods.'

#settingsTranscriptHelp

'Turns on/off showing help texts in a transcript (after opening of a new GUI Painter).'

#settingsUndoManager

'Opens a dialog to reverse a certain number of last edit action.'

#spreadSelectionHor

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

#spreadSelectionVer

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

#testGeometryTestMode

'Turns on/off the geometry test mode in order to define ratios of variable panels.'

#testStartApplication

'Starts current application on current window spec.'

)

! !

!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 }"

        atBeginOfLine|

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

                               ifTrue:[max := 20].

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

        ^ aString

    ].

    start  := 1.

    lnSz   := 0.

    stream := (String new:size) writeStream.

    atBeginOfLine := true.

    [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. atBeginOfLine := true. ]

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

            ] ifTrue:[

                lnSz := cpySz

            ].

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

            start := stop.

        ]

    ].

    ^ stream contents

    "Modified: / 1.2.1998 / 14:42:56 / cg"

! !

!UIPainter class methodsFor:'image specs'!

iconAlignB

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#iconAlignB

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter iconAlignB'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@G@@@@@@@G@E@@@@@G@G@@@@@G@G@@@@@G@G@@@E@G@G@@@G@G@G@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G C@G @@G'' @G'' @G'' @G'' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' G'''' O??0O??0@@@@@@@C@@@@') ; yourself); yourself]!

iconAlignL

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#iconAlignL

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter iconAlignL'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@@(@@@@@@@(UU@@@@@(_?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@F@@@G?? G?? G?? G?? F@@@F@@@G? @G? @G? @G? @F@@@@@@@@@@@') ; yourself); yourself]!

iconAlignLR

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#iconAlignLR

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter iconAlignLR'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(_??2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??2 @@(@@@B E@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A F@A G?? G?? G?? G?? F@A F@A G?? G?? G?; G?? F@A @@@@@@@@') ; yourself); yourself]!

iconAlignR

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#iconAlignR

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter iconAlignR'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@_??2 @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUUR @@G???2 @@@@@@B E@@@@@B @@@@@@B @@@@@@B @@@@EUR @@@@G?2 @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@A G?? G?? G?? G?? @@A @@A @G? @G? @G? @G? @@A @@@@@@@@') ; yourself); yourself]!

iconAlignT

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#iconAlignT

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter iconAlignT'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@G@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@@@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' @G'' @G'' @G'' @G'' @G @@G C@@@@@@@@@@@@') ; yourself); yourself]!

iconAlignTB

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!!!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     ImageEditor openOnClass:self andSelector:#iconAlignTB

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter iconAlignTB'

        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@A@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@G@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@H@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@@@G@G@D@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@H@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G''''!!G'''' G'''' G'''' G'''' G'''' G'''' G''''!!G''''!!G''& G'''' O??0O??2@@@@@@@@@@@@') ; yourself); yourself]! !

!UIPainter class methodsFor:'interface specs'!

dialogSpecForDefiningClassAndSelector

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this. If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningClassAndSelector

     UIPainter new openInterface:#dialogSpecForDefiningClassAndSelector

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'GUI Painter'

              #layout: #(#LayoutFrame 575 0 296 0 921 0 455 0)

              #label: 'GUI Painter'

              #min: #(#Point 10 10)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 575 296 922 456)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#FramedBoxSpec

                    #name: 'FramedBox'

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

                    #component: 

                     #(#SpecCollection