"

 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague

	      All Rights Reserved

Permission is hereby granted, free of charge, to any person

obtaining a copy of this software and associated documentation

files (the 'Software'), to deal in the Software without

restriction, including without limitation the rights to use,

copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the

Software is furnished to do so, subject to the following

conditions:

The above copyright notice and this permission notice shall be

included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

OTHER DEALINGS IN THE SOFTWARE.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

ToolApplicationModel subclass:#ChangeSetBrowser2

	instanceVariableNames:'changesetHolder titleHolder allowOpenHolder changesetFile

		navigatorChangesetHolder navigatorSpecHolder list1 list1Holder

		selection1Holder list2 list2Holder selection2Holder classHolder

		languageHolder codeAspectHolder showRemovedAspect showSameAspect

		showTimestampHolder sourceView changeSourceHolder

		imageSourceHolder targetPackage allowRemoveHolder

		allowAcceptHolder infoPanel updateChangeFileHolder

		showFilterHolder showingRegularChangesetHolder isWorkingHolder

		isWorkingNotHolder hasSelectionHolder showConflictsOnlyAspect

		targetNameSpaceName showDefinitionsOnlyAspect'

	poolDictionaries:''

	category:'Interface-Browsers-ChangeSet'

!

ApplicationModel subclass:#ChangeEditor

	instanceVariableNames:'changeHolder readonlyHolder showdiffHolder sourceChangeHolder

		sourceImageHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeSetBrowser2

!

!ChangeSetBrowser2 class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague

	      All Rights Reserved

Permission is hereby granted, free of charge, to any person

obtaining a copy of this software and associated documentation

files (the 'Software'), to deal in the Software without

restriction, including without limitation the rights to use,

copy, modify, merge, publish, distribute, sublicense, and/or sell

copies of the Software, and to permit persons to whom the

Software is furnished to do so, subject to the following

conditions:

The above copyright notice and this permission notice shall be

included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,

EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES

OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND

NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT

HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,

WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR

OTHER DEALINGS IN THE SOFTWARE.

"

! !

!ChangeSetBrowser2 class methodsFor:'instance creation'!

on: aStringOrChangeSet

    "Opens a browser on given changeset. If the argument is

    string, then loads the changeset from given file - for

    compatibility with other tools"

    ^aStringOrChangeSet isString ifTrue:[

        self onFile: aStringOrChangeSet

    ] ifFalse:[

        self on: aStringOrChangeSet label: aStringOrChangeSet name

    ]

    "Modified: / 21-05-2012 / 13:55:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

on: aChangeSet label: aString

    ^self on: aChangeSet label: aString setupWith: [:browser]

    "Created: / 26-10-2010 / 22:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

on: aChangeSet label: label setupWith: aBlock

    | browser |

    browser := self new.

    browser

	changeset: aChangeSet;

	title: label.

    aBlock value: browser.

    ^browser

    "Created: / 26-10-2010 / 22:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

onFile: aString

    | browser |

    browser := self new.

    browser enqueueDelayedAction:[browser doOpenFile: aString].

    ^browser

    "Created: / 17-05-2012 / 23:36:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetBrowser2 class methodsFor:'accessing'!

showRemoved

    ^ShowRemoved == true

!

showRemoved: aBoolean

    ShowRemoved := aBoolean

! !

!ChangeSetBrowser2 class methodsFor:'help specs'!

flyByHelpSpec

    "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:Tools::ChangeSetBrowser

    "

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#fileLoad

'Select a file and show its contained changeset'

#fileSave

'Save the changeset in a file'

#applyAll

'Apply all changes.'

#applyForClassToEnd

'Apply changes which affect this class to the end.'

#applyFromLastSnapshot

'Apply changes from the last snapshot to the end.'

#applyLine

'Apply the selected change.'

#applyToEnd

'Apply all changes from the selected one to the end.'

#deleteAll

'Deletes all changes.'

#deleteCompress

'Deletes all obsolete changes.'

#deleteCompressForClass

'Deletes obsolete changes for this class, leaving the last one.'

#deleteForClassToEnd

'Deletes changes for this class from the selection to the end.'

#deleteLine

'Deletes the selected change.'

#deleteToEnd

'Deletes changes from the selected one to the end.'

#fileLoad

'Opens a dialog for selecting and loading another changes file.'

#fileReload

'Reloads the changes file (undo your modifications).'

#fileSave

'Saves the list of changes into the current changes file.'

#filterField

'Matching patterns filtering the changes (separate patterns by blanks).'

#settingsAutoUpdate

'Toggle automatic update.'

#settingsColumns

'Configure which columns are shown in the list.'

#settingsColumnsCategory

'Toggle display of the changes category in the list.'

#settingsColumnsDeltaInfo

'Toggle display of the delta-info in the list.'

#settingsColumnsPosition

'Togle display of the changes file-position in the list.'

#settingsColumnsTimeStamp

'Toggle display of the changes time stamp in the list.'

#settingsColumnsType

'Toggle display of the change-type in the list.'

#settingsPrivateAsSeparate

'Toggle if changes for private private are included when applying, deleting, or compressing for a class.'

#testCompareWithCurrentVersion

'Opens a info dialog showing the difference between the changes code and the method current code.'

#testFindPreviousSnapshot

'Searches backward for the previous snapshot entry.'

#testFindNextSnapshot

'Searches forward for the next snapshot entry.'

)

    "Created: / 27-12-2011 / 10:37:47 / cg"

    "Modified: / 29-03-2012 / 12:13:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

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:Tools::ChangeSetBrowser2

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#applyAll

'Apply all changes.'

#applyForClassToEnd

'Apply changes to the end which affect this class.'

#applyFromLastSnapshot

'Apply changes from the last snapshot to the end.'

#applyLine

'Apply the selected change.'

#applyToEnd

'Apply all changes from the selected one to the end.'

#deleteAll

'Deletes all changes.'

#deleteCompress

'Deletes all obsolete changes.'

#deleteCompressForClass

'Deletes obsolete changes for this class, leaving the last one.'

#deleteForClassToEnd

'Deletes changes for this class from the selection to the end.'

#deleteLine

'Deletes the selected change.'

#deleteToEnd

'Deletes changes from the selected one to the end.'

#fileLoad

'Open a changeset file (.chg or .st)'

#fileOpenSelection

''

#fileReload

'Reloads the changes file (undo your modifications).'

#fileSave

'Saves changes to current change file.'

#fileSaveAs

'Save changes to a file'

#filterField

'Matching patterns filtering the changes (separate patterns by blanks).'

#settingsAutoUpdate

'Toggle automatic update.'

#settingsColumns

'Configure which columns are shown in the list.'

#settingsColumnsCategory

'Toggle display of the changes category in the list.'

#settingsColumnsClassName

'Toggle display of the className in the list.'

#settingsColumnsDeltaInfo

'Toggle display of the delta-info in the list.'

#settingsColumnsPosition

'Togle display of the changes file-position in the list.'

#settingsColumnsTimeStamp

'Toggle display of the changes time stamp in the list.'

#settingsColumnsType

'Toggle display of the change-type in the list.'

#settingsPrivateAsSeparate

'Toggle if changes for private private are included when applying, deleting, or compressing for a class.'

#testCompareWithCurrentVersion

'Opens a info dialog showing the difference between the changes code and the method current code.'

#testFindLastSnapshot

'Searches backward for the previous snapshot entry.'

#testFindNextSnapshot

'Searches forward for the next snapshot entry.'

#testFindPreviousSnapshot

'Searches backward for the previous snapshot entry.'

#fileOpenCurrent

'Open current system changeset'

#fileOpenSelection

'Opens a new browser on currently selected changes'

)

    "Modified: / 01-08-2012 / 18:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetBrowser2 class methodsFor:'image specs'!

applyFromLastSnapshotIcon

    ^ self applyFromLastSnapshotIcon2

!

applyFromLastSnapshotIcon1

    <resource: #image>

    "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 applyFromLastSnapshotIcon inspect

     ImageEditor openOnClass:self andSelector:#applyFromLastSnapshotIcon

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'NewChangesBrowser class applyFromLastSnapshotIcon'

        ifAbsentPut:[

            (Depth4Image new)

                width:22;

                height:22;

                photometric:(#palette);

                bitsPerSample:(#( 4 ));

                samplesPerPixel:(1);

                bits:(ByteArray 

                            fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"H"H@@@@@@@@@H"H"H @@@@@@@@@@@@@B@@@@@@

@@;.;.; H@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@

@O@@@N@@@@DQDQDP<@C @@@@@_??DQ@@@@@@@@@A????D@@@@@@@@@DQDQDP@@@@C @@@@@@@@@@@@@@@@@b');

                colorMapFromArray:#[ 0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170 ];

                mask:((ImageMask new)

                            width:22;

                            height:22;

                            bits:(ByteArray 

                                        fromPackedString:'@@@@@C?0@B@P@B@P@O?P@O?P@O?0@??@@??@@??LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@');

                            yourself);

                yourself

        ]

!

applyFromLastSnapshotIcon2

    <resource: #image>

    "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 applyFromLastSnapshotIcon1 inspect

     ImageEditor openOnClass:self andSelector:#applyFromLastSnapshotIcon1

     Icon flushCachedIcons"

    ^ Icon 

        constantNamed:#'NewChangesBrowser class applyFromLastSnapshotIcon1'

        ifAbsentPut:[

            (Depth4Image new)

                width:22;

                height:22;

                photometric:(#palette);

                bitsPerSample:(#( 4 ));

                samplesPerPixel:(1);

                bits:(ByteArray 

                            fromPackedString:'

@@@BH@@@@@@QDQ<@@BH @@@@@AH"H@@@H"@@@@@@D"H H H"@@@@@@@RH"@"H"@@@@@@@AH"H@H"H@@@@@@@<@@@@BH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@;.;.; @@@@@@@@C.;.;.@@@@@@@@@@@@@@8@@N@@@@C?????C @@@N@@@O????<@@@8@@@@@@@@@C0@@@@8@@O????<O@@C @@@@?????0@@@@C @@@@@@

@O@@@N@@@@DQDQDP<@C @@@@@_??DQ@@@@@@@@@A????D@@@@@@@@@DQDQDP@@@@C @@@@@@@@@@@@@@@@@b');

                colorMapFromArray:#[ 0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170 ];

                mask:((ImageMask new)

                            width:22;

                            height:22;

                            bits:(ByteArray 

                                        fromPackedString:'A@C<C@C<C@C<&@C<<@C<\@C<H@@@@?<@@?<@@?<LC?<\C?<\C?<8O?08O?10O?10??C ??[@??_@?<^@?<_@?<_@');

                            yourself);

                yourself

        ]

!

applyIcon

    ^ self applyIcon2

!

applyIcon1

    <resource: #image>

    "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 applyIcon inspect

     ImageEditor openOnClass:self andSelector:#applyIcon

     Icon flushCachedIcons"

    ^ Icon constantNamed:#'NewChangesBrowser class applyIcon'

        ifAbsentPut:[

            (Depth2Image new)

                width:22;

                height:22;

                photometric:(#palette);

                bitsPerSample:(#( 2 ));

                samplesPerPixel:(1);

                bits:(ByteArray 

                            fromPackedString:'

UUUUUUUPUUUUUU?PUUUUUU?[UUUUUW=PP@@@@C<QQUUU=_4PQUUU?_4VQ**U_?TPQUUUW?TPQUUUW=TXQ***U=TPQ**UUUTPQ*****TPQ***%UTPQ****)TP

QUUUUUTPQUUUUUTUP@@@@@@PUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP');

                colorMapFromArray:#[ 0 0 0 255 255 255 170 170 170 255 0 0 ];

                mask:((ImageMask new)

                            width:22;

                            height:22;

                            bits:(ByteArray 

                                        fromPackedString:'

@@@@@@@8@@@8@@A0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a');

                            yourself);

                yourself

        ]

!

applyIcon2

    <resource: #image>

    "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 applyIcon2 inspect

     ImageEditor openOnClass:self andSelector:#applyIcon2