"

 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 }"

Tools::BrowserListWithFilter subclass:#ChangeList

	instanceVariableNames:'listHolder showRemovedHolder showSameHolder showTimestampHolder

		allowRemoveHolder allowAcceptHolder scrollToBottom applyAction'

	classVariableNames:'LastSelectionConditionString'

	poolDictionaries:''

	category:'Interface-Browsers-ChangeSet'

!

HierarchicalItem subclass:#ListEntry

	instanceVariableNames:'change application x'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ChangeList

!

!ChangeList 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.

"

! !

!ChangeList class methodsFor:'image specs'!

iconEqual

    ^ ToolbarIconLibrary iconEqual12x12

    "Modified: / 31-08-2011 / 10:52:34 / cg"

!

iconEqualGrayed

    ^ ToolbarIconLibrary iconEqualGray12x12

    "Modified: / 31-08-2011 / 10:54:00 / cg"

!

iconMinus

    ^ ToolbarIconLibrary iconMinusRed12x12

    "Modified: / 24-07-2012 / 16:43:36 / cg"

!

iconMinusGrayed

    ^ ToolbarIconLibrary iconMinusGray12x12

    "Modified: / 31-08-2011 / 10:54:40 / cg"

!

iconPlus

    ^ ToolbarIconLibrary iconPlusBlue12x12

    "Modified: / 24-07-2012 / 16:43:31 / cg"

!

iconPlusGrayed

    ^ ToolbarIconLibrary iconPlusGray12x12

    "Modified: / 31-08-2011 / 10:54:46 / cg"

! !

!ChangeList class methodsFor:'interface specs'!

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::ChangeList andSelector:#windowSpec

     Tools::ChangeList new openInterface:#windowSpec

     Tools::ChangeList open

    "

    <resource: #canvas>

    ^

     #(FullSpec

	name: windowSpec

	window:

       (WindowSpec

	  label: 'Change List'

	  name: 'Change List'

	  min: (Point 10 10)

	  bounds: (Rectangle 0 0 300 300)

	)

	component:

       (SpecCollection

	  collection: (

	   (InputFieldSpec

	      name: 'Filter'

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

	      initiallyInvisible: true

	      model: filterPatternHolder

	      immediateAccept: true

	      acceptOnLeave: false

	      acceptOnReturn: false

	      acceptOnTab: false

	      acceptOnPointerLeave: false

	      emptyFieldReplacementText: 'Search Filter...'

	      postBuildCallback: postBuildFilterView:

	    )

	   (DataSetSpec

	      name: 'List'

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

	      model: selectionHolder

	      menu: menuHolderWithShowFilter

	      hasHorizontalScrollBar: true

	      hasVerticalScrollBar: true

	      dataList: listHolder

	      useIndex: false

	      doubleClickSelector: selectionDoubleclicked

	      columnHolder: listColumns

	      showLabels: false

	      multipleSelectOk: true

	      postBuildCallback: postBuildListView:

	      properties:

	     (PropertyListDictionary

		startDragSelector: nil

		dropObjectSelector: dragObjects:

		canDropSelector: canDrop:

		dropSelector: dropObjects:

	      )

	    )

	   )

	)

      )

! !

!ChangeList class methodsFor:'list specs'!

listColumnSpec

    "This resource specification was automatically generated

     by the DataSetBuilder of ST/X."

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

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

    "

     DataSetBuilder new openOnClass:Tools::ChangeList andSelector:#listColumnSpec

    "

    <resource: #tableColumns>

    ^#(

      (DataSetColumnSpec

	 label: 'Removed'

	 id: 'removed'

	 labelButtonType: Button

	 width: 20

	 minWidth: 20

	 editorType: CheckToggle

	 rendererType: CheckToggle

	 model: notRemoved

	 menuFromApplication: false

	 printSelector: notRemoved

	 isResizeable: false

	 showRowSeparator: false

	 showSelectionHighLighted: false

	 showColSeparator: false

       )

      (DataSetColumnSpec

	 label: 'Delta'

	 id: 'delta'

	 labelButtonType: Button

	 width: 20

	 minWidth: 20

	 menuFromApplication: false

	 printSelector: iconDelta

	 canSelect: false

	 isResizeable: false

	 showRowSeparator: false

	 showSelectionHighLighted: false

	 showColSeparator: false

       )

      (DataSetColumnSpec

	 label: 'Change'

	 id: change

	 labelAlignment: left

	 labelButtonType: Button

	 menuFromApplication: false

	 printSelector: label

	 canSelect: false

	 showRowSeparator: false

	 showColSeparator: false

       )

      (DataSetColumnSpec

	 label: 'Class'

	 id: 'className'

	 labelAlignment: left

	 activeHelpKey: ''

	 activeHelpKeyForLabel: ''

	 labelButtonType: Button

	 usePreferredWidth: true

	 model: className

	 menuFromApplication: false

	 canSelect: false

	 showRowSeparator: false

	 showColSeparator: false

       )

      (DataSetColumnSpec

	 label: 'Selector'

	 id: 'selector'

	 labelAlignment: left

	 activeHelpKey: ''

	 activeHelpKeyForLabel: ''

	 labelButtonType: Button

	 usePreferredWidth: true

	 model: selector

	 menuFromApplication: false

	 canSelect: false

	 showRowSeparator: false

	 showColSeparator: false

       )

      (DataSetColumnSpec

	 label: 'Category'

	 id: category

	 labelAlignment: left

	 labelButtonType: Button

	 usePreferredWidth: true

	 model: category

	 menuFromApplication: false

	 canSelect: false

	 showRowSeparator: false

	 showColSeparator: false

       )

      (DataSetColumnSpec

	 label: 'Time Stamp'

	 id: timeStamp

	 labelAlignment: left

	 labelButtonType: Button

	 usePreferredWidth: true

	 model: timeStamp

	 menuFromApplication: false

	 canSelect: false

	 showRowSeparator: false

	 showColSeparator: false

       )

      )

! !

!ChangeList class methodsFor:'menu specs'!

listMenu

    "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:Tools::ChangeList andSelector:#listMenu

     (Menu new fromLiteralArrayEncoding:(Tools::ChangeList listMenu)) startUp

    "

    <resource: #menu>

    ^

     #(Menu

	(

	 (MenuItem

	    enabled: hasChangeSelectedAndNotRemoved

	    label: 'Apply'

	    itemValue: listMenuApply

	    translateLabel: true

	    isVisible: allowAcceptHolder

	    shortcutKey: Accept

	  )

	 (MenuItem

	    label: 'Apply all'

	    itemValue: listMenuApplyAll

	    translateLabel: true

	    isVisible: allowAcceptHolder

	  )

	 (MenuItem

	    enabled: hasSingleChangeSelectedAndCanBrowse

	    label: 'Browse'

	    itemValue: listMenuBrowse

	    translateLabel: true

	  )

	 (MenuItem

	    label: '-'

	  )

	 (MenuItem

	    label: 'Delete'

	    itemValue: listMenuDeleteSelection

	    nameKey: Delete

	    translateLabel: true

	    isVisible: allowRemoveHolder

	    shortcutKey: Delete

	  )

	 (MenuItem

	    label: '-'

	    isVisible: allowRemoveHolder

	  )

	 (MenuItem

	    label: 'Select...'

	    translateLabel: true

	    submenu:

	   (Menu

	      (

	       (MenuItem

		  label: 'Select same'

		  itemValue: listMenuSelectSame

		  translateLabel: true

		)

	       (MenuItem

		  label: 'Select additions (new classes/methods)'

		  itemValue: listMenuSelectAdditions

		  translateLabel: true

		)

	       (MenuItem

		  label: 'Select removals'

		  itemValue: listMenuSelectRemovals

		  translateLabel: true

		)

	       (MenuItem

		  label: '-'

		)

	       (MenuItem

		  label: 'Select all'

		  itemValue: listMenuSelectAll

		  translateLabel: true

		)

	       (MenuItem

		  label: 'Select none'

		  itemValue: listMenuSelectNone

		  translateLabel: true

		)

	       (MenuItem

		  label: '-'

		)

	       (MenuItem

		  label: 'Select using block'

		  itemValue: listMenuSelectUsingBlock

		  translateLabel: true

		)

	       )

	      nil

	      nil

	    )

	  )

	 (MenuItem

	    label: '-'

	  )

	 (MenuItem

	    label: 'Show Deleted'

	    translateLabel: true

	    isVisible: allowRemoveHolder

	    indication: showRemovedHolder

	  )

	 (MenuItem

	    label: 'Inspect change'

	    itemValue: listMenuInspect

	    translateLabel: true

	  )

	 )

	nil

	nil

      )

! !

!ChangeList class methodsFor:'plugIn spec'!

aspectSelectors

    "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."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

	#allowAcceptHolder

	#allowRemoveHolder

	#inGeneratorHolder

	#menuHolder

	#outGeneratorHolder

	#selectionHolder

	#showFilterHolder

	#showRemovedHolder

	#showSameHolder

	#showTimestampHolder

      ).

! !

!ChangeList methodsFor:'accessing'!

acceptEnabled

    ^ self allowAccept

    "Created: / 08-02-2012 / 14:45:12 / cg"

!

allowAccept

    ^ self allowAcceptHolder value

    "Created: / 24-01-2012 / 19:52:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

allowAccept: aBoolean

    ^ self allowAcceptHolder value: aBoolean

    "Created: / 24-01-2012 / 19:52:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

allowRemoved

    ^ self allowRemoveHolder value ? true

    "Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

applyAction:aBlock

    applyAction := aBlock.

    "Modified (format): / 10-09-2012 / 14:15:30 / cg"

!

list

    ^ listHolder value

    "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Created: / 27-12-2011 / 14:18:25 / cg"

!

scrollToBottom:aBoolean

    "If set to true, list will automaticallu scroll to bottom

     ehen the list is updated and clears this flag.

     This is required as the list is updated asynchronously"