"

 COPYRIGHT (c) 1997-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:libview2' }"

ToolApplicationModel subclass:#ResourceSpecEditor

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Framework'

!

!ResourceSpecEditor class methodsFor:'documentation'!

copyright

"

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

"

    Abstract super class for the MenuEditor, HierarchicalListEditor, 

    and the TabListEditor.

    It provides common behavior for initializing, loading, saving, and

    asking for modifications of the resource specs (#menu, #hierarchicalList, 

    #tabList) for the concrete subclasses.

    [instance variables:]

        specClass       <Symbol>                class implementing the resource spec

        specSelector    <Symbol>                selector returning the resource spec

        aspects         <IdentityDictionary>    dictionary with the attributes of the resource spec

        modified        <Boolean>               flag whether the resource spec was modified

        hasSaved        <Boolean>               flag whether the resource spec was saved

        tabSelection    <Integer>               index of the tab selection

    [see also:]

        MenuEditor

        HierarchicalListEditor

        TabListEditor

    [author:]

         Thomas Zwick, eXept Software AG

"

! !

!ResourceSpecEditor class methodsFor:'instance creation'!

openModalOnClass:aClass andSelector:aSelector

    "opens modal the Resource Spec Editor on aClass and aSelector"

    ^self new openModalOnClass:aClass andSelector:aSelector

!

openOnClass:aClass andSelector:aSelector

    "opens the Resource Spec Editor on aClass and aSelector"

! !

!ResourceSpecEditor class methodsFor:'accessing'!

codeGenerationComment

    "returns a comment for the method code generated by myself"

    ^self codeGenerationCommentForClass: self

!

codeGenerationCommentForClass: generatingClass

    "returns a comment for the method code generated by generatingClass"

    |generatingClassName|

    generatingClassName := generatingClass name.

    ^'    "This resource specification was automatically generated\',

     '     by the ', generatingClassName, ' of ST/X."\\',

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

     '     the ', generatingClassName, ' may not be able to read the specification."'

!

resourceType

    "returns the type of resource of the method generated by the Resource Spec Editor;

     concrete subclasses has to reimplement this method"

    ^self subclassResponsibility

! !

!ResourceSpecEditor class methodsFor:'aspects'!

aspects

    "returns the aspects for the attributes of the resource spec components;

     concrete subclasses might reimplement this method in order to return an array"

    ^#()

! !

!ResourceSpecEditor class methodsFor:'queries'!

isVisualStartable

    "return true, if this application can be started via #open.

     (to allow start of a change browser via double-click in the browser)"

    self == ResourceSpecEditor ifTrue:[^false].

    ^super isVisualStartable

!

resourcePackage

    ^ #'stx:libtool2'

! !

!ResourceSpecEditor class methodsFor:'startup / release'!

preSnapshot

    "before a snapshot; updates the channels,

     because the clipboard has removed"

    super preSnapshot.

    instances notNil ifTrue:[

        instances do:[:inst |

            inst updateChannels. 

            inst valueOfEnablingCommitButtons value: false.

            inst modifiedChannel value: false. 

        ]

    ]

    "Modified: / 4.2.1999 / 15:32:17 / cg"

! !

!ResourceSpecEditor methodsFor:'accessing'!

modified       

    "returns whether the resource spec was modified"

    ^modified

!

modified: aBoolean         

    "sets the resource spec modified as aBoolean"

    modified := aBoolean

!

specClass

    "returns the class where the resource spec is implemented"

!

    "sets the class (or name) where the resource spec is (or should be) implemented"

!

specSelector

    "returns the method selector of the resource spec"

    ^specSelector

!

specSelector:aSelector

    "sets the method selector of the resource spec"

    specSelector := aSelector

! !

!ResourceSpecEditor methodsFor:'aspects'!

aspectFor:aKey

    "returns the aspect for a aKey or nil"

    ^aspects at: aKey ifAbsent: [super aspectFor:aKey]

!

tabModel

    "returns the value holder for the tab selection"

    |holder|

    (holder := builder bindingAt:#tabModel) isNil ifTrue:[

        holder := AspectAdaptor new subject:self; forAspect:#tabSelection.

        builder aspectAt:#tabModel put:holder.

    ].

    ^ holder

!

valueOfCanPaste

    "returns whether the application can paste; as value holder"

    |holder|

    holder := super valueOfCanPaste.

    holder value: self class clipboard notNil.

    ^ holder

!

valueOfEnableMovingIn

    "returns whether the selected item can move into next item as child; as value holder"

    ^builder booleanValueAspectFor: #valueOfEnableMovingIn

!

valueOfEnableMovingInAbove

    "returns whether the selected item can move into the previous item as child;

     as a value holder"

    ^builder booleanValueAspectFor: #valueOfEnableMovingInAbove

!

valueOfEnableMovingOut

    "returns whether the selected item can move out from its parent item; as value holder"

    ^builder booleanValueAspectFor: #valueOfEnableMovingOut

!

valueOfEnableMovingUpOrDown

    "returns whether the selected item can move up or down; as value holder"

    ^builder booleanValueAspectFor: #valueOfEnableMovingUpOrDown

! !

!ResourceSpecEditor methodsFor:'building'!

buildFromClass: aClass andSelector: aSelector

!

buildFromResourceSpec: aResourceSpec

    "concrete subclass has to reimplement this method

     in order to build its resource spec from aResourceSpec"

    ^self subclassResponsibility

! !

!ResourceSpecEditor methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    "one of my aspects has changed; update modified channel for the commit buttons"

    |enableCommitButtonsHolder|

    enableCommitButtonsHolder := self valueOfEnablingCommitButtons.

    changedObject ~~ enableCommitButtonsHolder ifTrue:[ 

        enableCommitButtonsHolder value: true 

    ]

!

updateAllToolInstances

    "updates the channels of all other instances of my class"

    self allToolInstances do: [:inst| inst updateChannels]

!

updateChannels

    "updates my channels"

    self valueOfCanPaste

! !

!ResourceSpecEditor methodsFor:'help'!

defaultInfoLabel

    "returns the default label for the info bar"

        ].

    ].

! !

!ResourceSpecEditor methodsFor:'initialization'!

initialize

    "initialize the flags and the aspects"

    super initialize.

    hasSaved     := modified := false.

    aspects      := IdentityDictionary new.

    tabSelection := 0.

    self class aspects do:

    [:aKey|

        |holder|

        aspects at:aKey put: (holder := ValueHolder new).

        holder addDependent: self

    ]

! !

!ResourceSpecEditor methodsFor:'private'!

askForItemModification

    "asks for resource item modification"

    |anythingChangedHolder anythingChanged answer|

    anythingChangedHolder := self valueOfEnablingCommitButtons.

    anythingChanged := anythingChangedHolder value.

    anythingChanged ifTrue:[          

"/        answer := ((YesNoBox title:'Resource item was modified!!\Save it?\' withCRs)        

"/                        noText:'No';

"/                        yesText:'Yes';

"/                        showAtPointer;

"/                        accepted). 

        answer := Dialog 

                        confirmWithCancel:(resources string:'Item was modified !!\Save it ?\' withCRs)

                        labels:(resources array:#('Cancel' 'No' 'Yes'))

                        default:3.

        answer isNil ifTrue:[

            ^ false

        ].

        answer ifTrue:[

            self accept

        ] ifFalse:[

            anythingChangedHolder value: false. 

            self clearModifiedFlag. 

        ].

    ].

    ^true

    "Modified: / 30.10.2001 / 18:38:34 / cg"

!

askForListModification

    "asks for resource modification"

    self modified ifTrue:

    [

        ((YesNoBox title:(resources string:'%1 spec was modified. Proceed?' with:self class resourceType asUppercaseFirst))        

            noText:(resources string:'Cancel');

            yesText:(resources string:'Discard Changes and Proceed');

            showAtPointer;

            accepted) ifFalse: [^ false].

    ].

    ^ true

    "Modified: / 20.5.1998 / 03:40:26 / cg"

!

askForModification

    "asks first for item and then for resource modification"

    ^self askForItemModification and: [self askForListModification]

!

!

        msg := aString asCollectionOfWords.

            specSelector := (msg at: 2) asSymbol.

            ^true

        ]

    ].

    ^false

! !

!ResourceSpecEditor methodsFor:'queries'!

hasSaved

    "returns true if resource spec has saved"

    ^hasSaved

!

isStandAlone

    ^self masterApplication isNil

! !

!ResourceSpecEditor methodsFor:'selection'!

tabSelection

    "returns selected tab index or 0"