"

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

"

"{ Package: 'stx:libtool' }"

ChangesBrowser subclass:#ChangeSetBrowser

	instanceVariableNames:'changeSet originalChangeSet'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers'

!

!ChangeSetBrowser class methodsFor:'documentation'!

copyright

"

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

"

    like a changesBrowser, but manipulates the per-project change-lists.

"

! !

!ChangeSetBrowser class methodsFor:'instance creation'!

open

    "create a changes browser on the current change set"

    ^ ((self new label:'ChangeSet Browser') changeSet:ChangeSet current) open

!

openOn:aChangeSet

    "create a changes browser on a change set"

    ^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) open

! !

!ChangeSetBrowser class methodsFor:'defaults'!

defaultLabel

    ^ 'ChangeSet Browser'

    "Created: / 6.2.1998 / 13:25:47 / cg"

! !

!ChangeSetBrowser class methodsFor:'menu specs'!

menuSpec

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:ChangeSetBrowser andSelector:#menuSpec

     (Menu new fromLiteralArrayEncoding:(ChangeSetBrowser menuSpec)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'File'

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Compress'

                  #translateLabel: true

                  #isVisible: #notEditingClassSource

                  #value: #doCompress

                )

               #(#MenuItem

                  #label: 'Compress for Class'

                  #translateLabel: true

                  #isVisible: #notEditingClassSource

                  #value: #doCompressClass

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Compare and Compress'

                  #translateLabel: true

                  #isVisible: #notEditingClassSource

                  #value: #doCompareAndCompress

                )

               #(#MenuItem

                  #label: '-'

                  #isVisible: #notEditingClassSource

                )

               #(#MenuItem

                  #label: 'Fileout && Delete all Changes for Class'

                  #translateLabel: true

                  #isVisible: #notEditingClassSource

                  #value: #doFileoutAndDeleteClassAll

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'CheckIn && Delete all Changes for Class'

                  #translateLabel: true

                  #isVisible: #notEditingClassSource

                  #value: #doCheckinAndDeleteClassAll

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: '-'

                  #isVisible: #notEditingClassSource

                )

               #(#MenuItem

                  #label: 'Save in...'

                  #translateLabel: true

                  #value: #doSave

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Save to End in...'

                  #translateLabel: true

                  #value: #doSaveRest

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Save for Class to End in...'

                  #translateLabel: true

                  #value: #doSaveClassRest

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Save All for Class in...'

                  #translateLabel: true

                  #value: #doSaveClassAll

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Saveback ChangeSet'

                  #translateLabel: true

                  #value: #doSaveBack

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Update'

                  #translateLabel: true

                  #value: #doUpdate

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Exit'

                  #translateLabel: true

                  #value: #menuExit

                )

               )

              nil

              nil

            )

          )

         #(#MenuItem

            #label: 'Search'

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Class...'

                  #translateLabel: true

                  #value: #findClass

                )

               #(#MenuItem

                  #label: 'Previous for Class'

                  #translateLabel: true

                  #value: #findPreviousForClass

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Next for Class'

                  #translateLabel: true

                  #value: #findNextForClass

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Selector...'

                  #translateLabel: true

                  #value: #findSelector

                )

               #(#MenuItem

                  #label: 'Previous for Selector'

                  #translateLabel: true

                  #value: #findPreviousForSelector

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Next for Selector'

                  #translateLabel: true

                  #value: #findNextForSelector

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'String...'

                  #translateLabel: true

                  #value: #findString

                )

               #(#MenuItem

                  #label: 'Previous with String'

                  #translateLabel: true

                  #value: #findPreviousForString

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Next with String'

                  #translateLabel: true

                  #value: #findNextForString

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Previous Snapshot'

                  #translateLabel: true

                  #value: #findPreviousSnapshot

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Next Snapshot'

                  #translateLabel: true

                  #value: #findNextSnapshot

                  #enabled: #hasSelection

                )

               )

              nil

              nil

            )

          )

         #(#MenuItem

            #label: 'Change'

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Apply'

                  #translateLabel: true

                  #value: #doApply

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Apply to End'

                  #translateLabel: true

                  #value: #doApplyRest

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Apply for Class to End'

                  #translateLabel: true

                  #value: #doApplyClassRest

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Apply All'

                  #translateLabel: true

                  #value: #doApplyAll

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Delete'

                  #translateLabel: true

                  #value: #doDelete

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Delete to End'

                  #translateLabel: true

                  #value: #doDeleteRest

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Delete for Class to End'

                  #translateLabel: true

                  #value: #doDeleteClassRest

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Delete for Class from Begin'

                  #translateLabel: true

                  #value: #doDeleteClassFromBeginning

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Delete All for Class'

                  #translateLabel: true

                  #value: #doDeleteClassAll

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Delete All for Class && its Private Classes'

                  #translateLabel: true

                  #value: #doDeleteClassAndPrivateClassesAll

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Compare with Current'

                  #translateLabel: true

                  #value: #doCompare

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: 'Browse'

                  #translateLabel: true

                  #value: #doBrowse

                  #enabled: #hasSelection

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Make Change a Patch'

                  #translateLabel: true

                  #value: #doMakePatch

                  #enabled: #hasSelection

                )

               )

              nil

              nil

            )

          )

         #(#MenuItem

            #label: 'Settings'

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Auto Compare'

                  #translateLabel: true

                  #indication: #autoCompare

                )

               #(#MenuItem

                  #label: 'Auto Update'

                  #translateLabel: true

                  #indication: #autoUpdate

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Apply in Original NameSpace'

                  #translateLabel: true

                  #indication: #applyInOriginalNameSpace

                )

               )

              nil

              nil

            )

          )

         #(#MenuItem

            #label: 'Help'

            #translateLabel: true

            #startGroup: #right

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'ChangesBrowser Documentation'

                  #translateLabel: true

                  #value: #openHTMLDocument:

                  #argument: 'tools/cbrowser/TOP.html'

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'About ChangesBrowser...'

                  #translateLabel: true

                  #value: #openAboutThisApplication

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

! !

!ChangeSetBrowser methodsFor:'initialize / release'!

changeListMenu

    <resource: #programMenu >

    |items|

    items := #(

                             ('Apply'                              doApply)

                             ('Apply to End'                       doApplyRest)

                             ('Apply All changes'                  doApplyAll)

                             ('-'                                  )

                             ('Delete'                             doDelete)

                             ('Delete to End'                      doDeleteRest)

                             ('Delete for Class to End'            doDeleteClassRest)

                             ('Delete All for Class'               doDeleteClassAll)

                             ('-'                                  )

"/                             ('compress'                          doCompress)

                             ('Compare with Current'               doCompare)

                             ('-'                                  )

                             ('Make Change a Patch'                doMakePatch)

"/                             ('update sourcefile from change'    doMakePermanent)

                             ('-'                                  )

                             ('Saveback ChangeSet'                 doSaveBack)

                             ('-'                                  )

                             ('Update'                             doUpdate)

                ).

    ^ PopUpMenu 

         itemList:items

         resources:resources

    "Created: 3.12.1995 / 18:06:35 / cg"

    "Modified: 3.12.1995 / 18:13:06 / cg"

! !

!ChangeSetBrowser methodsFor:'private'!

applyChange:changeNr

    "fileIn a change"

    |nm applyAction|

    nm := self classNameOfChange:changeNr.

    nm notNil ifTrue:[

        |cls|

        cls := Smalltalk at:(nm asSymbol) ifAbsent:[].

        cls notNil ifTrue:[

            cls isLoaded ifFalse:[

                cls autoload

            ]

        ]

    ].

    changeNrProcessed := changeNr.

    applyAction := [

        |sig|

        (skipSignal notNil) ifTrue:[

            sig := skipSignal

        ] ifFalse:[

            sig := Object abortSignal

        ].

        sig catch:[

            (changeSet at:changeNr) applyChange.

        ].

        changeNrProcessed := nil.

    ].