"

 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

		codeAspectHolder showRemovedAspect showSameAspect

		acceptEnabledHolder sourceView changeSourceHolder

		imageSourceHolder'

	classVariableNames:'ShowRemoved LastSelectionConditionString'

	poolDictionaries:''

	category:'Interface-Browsers-ChangeSet'

!

!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: aChangeSet

    ^self on: aChangeSet label: aChangeSet name

    "Modified: / 26-10-2010 / 22:51:07 / 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>"

! !

!ChangeSetBrowser2 class methodsFor:'accessing'!

showRemoved

    ^ShowRemoved == true

!

showRemoved: aBoolean

    ShowRemoved := aBoolean

! !

!ChangeSetBrowser2 class methodsFor:'help specs'!

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

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#fileLoad

''

#fileSave

''

)

! !

!ChangeSetBrowser2 class methodsFor:'interface opening'!

confirmChanges: aChangeSet

    ^self confirmChanges: aChangeSet label: 'Apply following changes?'

    "Modified: / 08-11-2010 / 18:01:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

confirmChanges:aChangeSet label: aString

    "Hmm, DialogBox class layout options are quite limited :-(("

    |browser browserView dialog|

    browser := self on: aChangeSet.

    browser acceptEnabled: false.

    browser showRemovedAspect: (true asValue).

    browserView := ApplicationSubView new

		client:browser

		spec:#windowSpecForEmbedding.

    dialog := (Dialog new)

		addComponent:browserView withHeight: 300;

		addAbortAndOkButtons.

    dialog label: aString.

    dialog buttonPanel

	layout:(LayoutFrame fractions:(0.0 @ 1.0 corner:1.0 @ 1.0)

		offsets:(0 @ -30 corner:0 @ 0)).

    browserView layout:(LayoutFrame fractions:(0.0 @ 0.0 corner:1.0 @ 1.0)

		offsets:(0 @ 0 corner:0 @ -30)).

    dialog

	okAction:

	    [^browser list1Holder value condenseChangesForRemoved];

	abortAction:

	    [^#()].

    dialog openWithExtent: 800@700.

    ^#()

    "

	 Tools::ChangeSetBrowser2

	    confirmChanges:

		(ChangeSet current copyFrom: ((ChangeSet current size - 10) max: 1) to: ChangeSet current size)

	    label: 'Last 10 changes...'

    "

    "Created: / 08-11-2010 / 17:59:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 01-07-2011 / 16:34:06 / cg"

    "Modified: / 04-08-2011 / 18:06:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

openOn: aChangeSet

    ^(self on: aChangeSet) open

!

openOn: aChangeSet label: aString

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

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

!

openOn: aChangeSet label: aString setupWith: aBlock

    ^(self on: aChangeSet label: aString setupWith: aBlock) open

    "Created: / 26-10-2010 / 23:07:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ChangeSetBrowser2 class methodsFor:'interface specs'!

hierarchicalNavigatorSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#hierarchicalNavigatorSpec

     Tools::ChangeSetBrowser2 new openInterface:#hierarchicalNavigatorSpec

    "

    <resource: #canvas>

    ^

     #(FullSpec

	name: hierarchicalNavigatorSpec

	window:

       (WindowSpec

	  label: 'Hierarchical Navigator'

	  name: 'Hierarchical Navigator'

	  min: (Point 10 10)

	  bounds: (Rectangle 0 0 300 300)

	)

	component:

       (SpecCollection

	  collection: (

	   (SubCanvasSpec

	      name: 'ChangeList'

	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)

	      hasHorizontalScrollBar: false

	      hasVerticalScrollBar: false

	      majorKey: #'Tools::HierarchicalChangeList'

	      subAspectHolders:

	     (Array

	       (SubChannelInfoSpec

		  subAspect: acceptEnabledHolder

		  aspect: acceptEnabledHolder

		)

	       (SubChannelInfoSpec

		  subAspect: inGeneratorHolder

		  aspect: list1Holder

		)

	       (SubChannelInfoSpec

		  subAspect: menuHolder

		  aspect: list1MenuHolder

		)

	       (SubChannelInfoSpec

		  subAspect: selectionHolder

		  aspect: selection1Holder

		)

	       (SubChannelInfoSpec

		  subAspect: showRemovedHolder

		  aspect: showRemovedAspect

		)

	       (SubChannelInfoSpec

		  subAspect: showSameHolder

		  aspect: showSameAspect

		)

	      )

	      createNewApplication: true

	      createNewBuilder: true

	      postBuildCallback: list1View:

	    )

	   )

	)

      )

    "Modified: / 04-08-2011 / 18:43:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

oneColumnNavigatorSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#oneColumnNavigatorSpec

     Tools::ChangeSetBrowser2 new openInterface:#oneColumnNavigatorSpec

    "

    <resource: #canvas>

    ^

     #(FullSpec

	name: oneColumnNavigatorSpec

	window:

       (WindowSpec

	  label: 'One Column Navigator'

	  name: 'One Column Navigator'

	  min: (Point 10 10)

	  bounds: (Rectangle 0 0 300 300)

	)

	component:

       (SpecCollection

	  collection: (

	   (SubCanvasSpec

	      name: 'ChangeList'

	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)

	      hasHorizontalScrollBar: false

	      hasVerticalScrollBar: false

	      majorKey: #'Tools::ChangeList'

	      subAspectHolders:

	     (Array

	       (SubChannelInfoSpec

		  subAspect: acceptEnabledHolder

		  aspect: acceptEnabledHolder

		)

	       (SubChannelInfoSpec

		  subAspect: inGeneratorHolder

		  aspect: list1Holder

		)

	       (SubChannelInfoSpec

		  subAspect: menuHolder

		  aspect: list1MenuHolder

		)

	       (SubChannelInfoSpec

		  subAspect: selectionHolder

		  aspect: selection1Holder

		)

	       (SubChannelInfoSpec

		  subAspect: showRemovedHolder

		  aspect: showRemovedAspect

		)

	       (SubChannelInfoSpec

		  subAspect: showSameHolder

		  aspect: showSameAspect

		)

	      )

	      createNewApplication: true

	      createNewBuilder: true

	      postBuildCallback: list1View:

	    )

	   )

	)

      )

    "Modified: / 04-08-2011 / 18:43:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

twoColumnNavigatorSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:Tools::ChangeSetBrowser2 andSelector:#twoColumnNavigatorSpec

     Tools::ChangeSetBrowser2 new openInterface:#twoColumnNavigatorSpec

    "

    <resource: #canvas>

    ^

     #(FullSpec

	name: twoColumnNavigatorSpec

	window:

       (WindowSpec

	  label: 'Two Column Navigator'

	  name: 'Two Column Navigator'

	  min: (Point 10 10)

	  bounds: (Rectangle 0 0 300 300)

	)

	component:

       (SpecCollection

	  collection: (

	   (VariableHorizontalPanelSpec

	      name: 'Columns'

	      layout: (LayoutFrame 0 0 0 0 0 1 0 1)

	      component:

	     (SpecCollection

		collection: (

		 (SubCanvasSpec

		    name: 'FirstColumn'

		    hasHorizontalScrollBar: false

		    hasVerticalScrollBar: false

		    majorKey: #'Tools::ChangeList'

		    subAspectHolders:

		   (Array

		     (SubChannelInfoSpec

			subAspect: acceptEnabledHolder

			aspect: acceptEnabledHolder

		      )

		     (SubChannelInfoSpec

			subAspect: inGeneratorHolder

			aspect: list1Holder

		      )

		     (SubChannelInfoSpec

			subAspect: menuHolder

			aspect: list1MenuHolder

		      )

		     (SubChannelInfoSpec

			subAspect: outGeneratorHolder

			aspect: list2Holder

		      )

		     (SubChannelInfoSpec

			subAspect: selectionHolder

			aspect: selection1Holder

		      )

		     (SubChannelInfoSpec

			subAspect: showRemovedHolder

			aspect: showRemovedAspect

		      )

		    (SubChannelInfoSpec

			subAspect: showSameHolder

			aspect: showSameAspect

		      )

		    )

		    createNewApplication: true

		    createNewBuilder: true

		    postBuildCallback: list1View:

		  )

		 (SubCanvasSpec

		    name: 'SecondColumn'

		    hasHorizontalScrollBar: false

		    hasVerticalScrollBar: false

		    majorKey: #'Tools::ChangeList'

		    subAspectHolders:

		   (Array

		     (SubChannelInfoSpec

			subAspect: acceptEnabledHolder

			aspect: acceptEnabledHolder

		      )

		     (SubChannelInfoSpec

			subAspect: inGeneratorHolder

			aspect: list2Holder

		      )

		     (SubChannelInfoSpec

			subAspect: menuHolder

			aspect: list2MenuHolder

		      )

		     (SubChannelInfoSpec

			subAspect: selectionHolder

			aspect: selection2Holder

		      )

		     (SubChannelInfoSpec

			subAspect: showRemovedHolder

			aspect: showRemovedAspect

		      )

		    (SubChannelInfoSpec

			subAspect: showSameHolder

			aspect: showSameAspect

		      )

		    )

		    createNewApplication: true

		    createNewBuilder: true

		    postBuildCallback: list2View:

		  )

		 )

	      )

	      handles: (Any 0.5 1.0)

	    )

	   )

	)

      )

    "Modified: / 04-08-2011 / 18:43:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

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

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

    "

     UIPainter new openOnClass:Tools::ChangeSetBrowser andSelector:#windowSpec

     Tools::ChangeSetBrowser new openInterface:#windowSpec

     Tools::ChangeSetBrowser open

    "

    <resource: #canvas>