"

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

"

"{ Package: 'stx:libtool2' }"

ResourceSpecEditor subclass:#UIPainter

	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool

		helpTool painterView painter lastPort lastPage'

	classVariableNames:'SelectionPanelClass UseViewScroller LastPort LastPage'

	poolDictionaries:''

	category:'Interface-UIPainter'

!

SelectionInTreeView subclass:#TreeView

	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled windowSpec windowSpecClass'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIPainter

!

!UIPainter class methodsFor:'documentation'!

copyright

"

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

"

    The GUI Painter provides the user with a graphical user interface for building own 

    interfaces by interactively assembling widgets and defining the behavior of the widgets.

    The resulting interface specifications can be saved as methods on the application

    classes, typically subclasses of the class ApplicationModel. These specifications

    are used by the UIBuilder to generate the application window and its widgets when 

    opening the application.

    [start with:]

        UIPainter open

    [author:]

        Claus Gittinger, eXept Software AG

        Claus Atzkern, eXept Software AG

        Thomas Zwick, 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 theNonMetaclass andSelector:aSelector

! !

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

preferenceFor:aSymbol

    "ST-80 compatible; always returns false

    "

    ^ false

! !

!UIPainter class methodsFor:'accessing'!

defaultNameOfCanvas

    "returns the default name of the application"

    ^ 'NewApplication'

!

selectionPanelClass

    ^ SelectionPanelClass

    "

     UIPainter selectionPanelClass.

     UIPainter selectionPanelClass:UISelectionPanel

    "

!

selectionPanelClass:something

    "set the class used as selection panel.

     this is UISelectionPanel as default"

    SelectionPanelClass := something.

    "

     UIPainter selectionPanelClass:UISelectionPanel

    "

! !

!UIPainter class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    ^super flyByHelpSpec addPairsFrom:#(

#fileSave

'Save Spec'

)

!

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

#align

'Widget alignment functions.'

#alignSelectionBottom

'Aligns the selected widgets bottom edges with the bottom of the dominant widget.'

#alignSelectionCenterHor

'Aligns the selected widgets centers vertically with the center of the dominant widget.'

#alignSelectionCenterVer

'Aligns the selected widgets centers horizontally with the center of the dominant widget.'

#alignSelectionLeft

'Aligns the selected widgets left edges with the left edge of the dominant widget.'

#alignSelectionLeftAndRight

'Aligns the selected widgets left & right edges with the dominant widget.'

#alignSelectionRight

'Aligns the selected widgets right edges with the right edge of the dominant widget.'

#alignSelectionTop

'Aligns the selected widgets top edgegs with the top edge of the dominant widget.'

#alignSelectionTopAndBottom

'Aligns the selected widgets top and bottom edges with the dominant widget.'

#centerSelectionHor

'Centers the selected widgets horizontally within their containing widget.'

#centerSelectionVer

'Centers the selected widgets vertically within their containing widget.'

#changePositionDown

'Moves the selected widget(s) towards the bottom.'

#changePositionLeft

'Moves the selected widget(s) towards the left.'

#changePositionRight

'Moves the selected widget(s) towards the right.'

#changePositionUp

'Moves the selected widget(s) towards the top.'

#drawEdit

''

#editBrowseViewClass

'Opens a browser on the class of the selected widget.'

#editDimensionCopyExtent

'Copies the extent of the selected widget.'

#editDimensionCopyLayout

'Copies the layout of the selected widget.'

#editDimensionDefaultExtent

'Sets the selected widget(s) extent to their default.'

#editDimensionDefaultHeight

'Sets the selected widget(s) height to their default.'

#editDimensionDefaultWidth

'Sets the selected widget(s) width to their default.'

#editDimensionPasteExtent

'Sets the extent of the selected widget(s) to the last copied extent.'

#editDimensionPasteHeight

'Sets the height of the selected widget(s) to the height of the last copied layout/extent.'

#editDimensionPasteLayout

'Sets the layout of the selected widget(s) to the last copied layout.'

#editDimensionPasteWidth

'Sets the width of the selected widget(s) to the width of the last copied layout/extent.'

#editInspectSpec

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

#editInspectView

'Opens an inspector on the selected widget.'

#editOpenSpecDocumentation

'Opens the documentation of the selected widget.'

#fileBrowseAspectMethods

'Opens a System Browser on the applications aspect methods.'

#fileBrowseClass

'Open a System Browser on the applications class.'

#fileLoad

'Opens a dialog to load a window specification from a classes spec method.'

#fileLoadSubspec

'Opens a dialog to load a sub specification from a classes windowSpec method.'

#fileNew

'Creates a new window spec.'

#filePickAnInterface

'Select a view on the screen, generate a window spec for it and edit this spec.'

#fileSave

'Saves the window spec in the current class (as spec method).'

#fileSaveAs

'Opens a dialog to select class and selector for saving the 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:)'

#helpExamples

'Show some examples uses of the GUI Painter.'

#helpFunctions

'Show the documentation on the GUI Painters menu and button functions.'

#helpLayoutTool

'Show the Layout Tools documentation.'

#helpSelectedWidget

'Show the documentation of the selected widget.'

#helpTutorial

'Show the GUI Painters documentation.'

#historyMenuItem

'Edit this windowSpec.'

#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 the current mouse position.'

#pasteWithLayout

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

#referToCOnfigDatabase

''

#settingsAspectsAsInstances

'Generate aspects as instance variables (or bindings, if off).'

#settingsCanvas

'Shows or hides the canvas window.'

#settingsGallery

'Shows or hides the gallery window.'

#settingsGridManager

'Opens a dialog to toggle grid display or to change the grids spacing.'

#settingsRedefineAspectMethods

'Toggles the permission to overwrite existing aspect methods.'

#settingsTranscriptHelp

'Toggles display of help texts (after opening a new GUI Painter).'

#settingsUndoManager

'Opens a dialog to undo modifications.'

#spreadSelectionHor

'Sets the horizontal spaces between the selected widgets to the same value.'

#spreadSelectionVer

'Sets the vertical spaces between the selected widgets to the same value.'

#testGeometryTestMode

'Toggles geometry test mode (to define ratios of variable panels and top-window dimension).'

#testStartApplication

'Starts the application with the 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'!

arrowDown

    "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."

    "

     self arrowDown inspect

     ImageEditor openOnClass:self andSelector:#arrowDown

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter class arrowDown'

        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O? ?>C@XNC <^C;8O? ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@? A<@C @D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]

!

arrowLeft

    "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."

    "

     self arrowLeft inspect

     ImageEditor openOnClass:self andSelector:#arrowLeft

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter class arrowLeft'

        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O7 >^C18NG <^C98O7 ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@H@A @N@A8@C PF@@H@@@@@@@@a') ; yourself); yourself]

!

arrowRight

    "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."

    "

     self arrowRight inspect

     ImageEditor openOnClass:self andSelector:#arrowRight

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter class arrowRight'

        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O_ <>C18OC <^C38O_ ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@ @C@@NA@<@C @L@@ @@@@@@@@a') ; yourself); yourself]

!

arrowUp

    "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."

    "

     self arrowUp inspect

     ImageEditor openOnClass:self andSelector:#arrowUp

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:#'UIPainter class arrowUp'