"

 COPYRIGHT (c) 1990 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' }"

StandardSystemView subclass:#ChangesBrowser

	instanceVariableNames:'changeListView codeView changeFileName changeChunks

		changePositions changeClassNames changeSelectors

		changeHeaderLines changeIsFollowupMethodChange anyChanges

		changeNrShown changeNrProcessed skipSignal autoCompare

		changeFileSize changeFileTimestamp checkBlock changeTimeStamps

		tabSpec autoUpdate editingClassSource lastSearchType

		lastSearchString applyInOriginalNameSpace lastSaveFileName

		readOnly enforcedPackage'

	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs DefaultIcon'

	poolDictionaries:''

	category:'Interface-Browsers'

!

!ChangesBrowser class methodsFor:'documentation'!

copyright

"

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

"

    this implements a browser for the changes-file (actually, it can display

    any sourceFiles contents).

    See the extra document 'doc/misc/cbrowser.doc' for how to use this browser.

    written jan 90 by claus

    [Class variables:]

        CompressSnapshotInfo            if true (the default), snapshot entries

                                        are also compressed in the compress function.

                                        Some users prefer them to be not compressed.

                                        Set it to false for this.

    Notice:

        this needs a total rewrite, to build up a changeSet from the file

        (which did not exist when the ChangesBrowser was originally written) 

        and manipulate that changeSet.

        This way, we get a browser for any upcoming incore changeSets for

        free. Also, this will put the chunk analyzation code into Change and

        subclasses (where it belongs) and give a better encapsulation and

        overall structure. Do not take this as an example for good style ;-)

        The Change hierarchy is currently been completed, and the changes browser

        will be adapted soon.

    [author:]

        Claus Gittinger

    [start with:]

        ChangesBrowser open

    [see also:]

        ( Using the ChangesBrowser :html: tools/cbrowser/TOP.html )

"

! !

!ChangesBrowser class methodsFor:'instance creation'!

new

    "create a new changes browser"

    ^ super 

        label:(self defaultLabel)

        icon:(self defaultIcon)

    "Modified: / 6.2.1998 / 13:25:18 / cg"

!

openOn:aFileName

    "create c changes browser on a change file"

    ^ ((self new label:(self defaultLabel , ': ', aFileName)) 

        changeFileName:aFileName) open

    "Modified: / 6.2.1998 / 13:27:19 / cg"

! !

!ChangesBrowser class methodsFor:'behavior'!

autoSelectNext

    "returning true here, makes a Delete operation automatically

     select the next change"

    ^ true

! !

!ChangesBrowser class methodsFor:'defaults'!

defaultIcon

    "return the browsers default window icon"

    <resource: #style (#ICON #ICON_FILE)>

    |nm i|

    (i := DefaultIcon) isNil ifTrue:[

        i := self classResources at:'ICON' default:nil.

        i isNil ifTrue:[

            nm := ClassResources at:'ICON_FILE' default:'CBrowser.xbm'.

            i := Smalltalk imageFromFileNamed:nm inPackage:#'stx:libtool'.

            i isNil ifTrue:[

                i := StandardSystemView defaultIcon

            ]

        ].

        i notNil ifTrue:[

            DefaultIcon := i := i onDevice:Display

        ]

    ].

    ^ i

    "Modified: 19.3.1997 / 20:48:34 / ca"

    "Modified: 18.4.1997 / 15:16:24 / cg"

!

defaultLabel

    ^ 'Changes Browser'

!

isVisualStartable

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

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

    ^ true

    "Created: / 27.9.1999 / 12:28:27 / cg"

! !

!ChangesBrowser 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:ChangesBrowser andSelector:#menuSpec

     (Menu new fromLiteralArrayEncoding:(ChangesBrowser 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: #hasSingleSelection

                )

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

                )

               #(#MenuItem

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

                  #translateLabel: true

                  #isVisible: #notEditingClassSource

                  #value: #doCheckinAndDeleteClassAll

                  #enabled: #hasSingleSelection

                )

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

                )

               #(#MenuItem

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

                  #translateLabel: true

                  #value: #doSaveClassRest

                  #enabled: #hasSingleSelection

                )

               #(#MenuItem

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

                  #translateLabel: true

                  #value: #doSaveClassAll

                  #enabled: #hasSingleSelection

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #label: 'Writeback ClassFile'

                  #translateLabel: true

                  #isVisible: #editingClassSource

                  #value: #doWriteBack

                )

               #(#MenuItem

                  #label: 'Writeback ChangeFile'

                  #translateLabel: true

                  #isVisible: #notEditingClassSource

                  #value: #doWriteBack

                )

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

            #translateLabel: true

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #translateLabel: true

                  #value: #doBrowse

                  #enabled: #hasSingleSelection

                )

               #(#MenuItem

                  #label: '-'

                )

               #(#MenuItem

                  #translateLabel: true