--- a/Tools__ChangeList.st Fri Sep 06 12:08:37 2013 +0100
+++ b/Tools__ChangeList.st Fri Sep 06 15:49:08 2013 +0100
@@ -27,7 +27,7 @@
"{ NameSpace: Tools }"
-Tools::BrowserListWithFilter subclass:#ChangeList
+BrowserListWithFilter subclass:#ChangeList
instanceVariableNames:'listHolder showRemovedHolder showSameHolder showTimestampHolder
allowRemoveHolder allowAcceptHolder scrollToBottom applyAction showConflictsOnlyHolder'
classVariableNames:'LastSelectionConditionString'
@@ -72,7 +72,6 @@
"
! !
-
!ChangeList class methodsFor:'image specs'!
iconEqual
@@ -115,7 +114,6 @@
"Modified: / 31-08-2011 / 10:54:46 / cg"
! !
-
!ChangeList class methodsFor:'interface specs'!
windowSpec
@@ -187,7 +185,6 @@
)
! !
-
!ChangeList class methodsFor:'list specs'!
listColumnSpec
@@ -301,7 +298,6 @@
! !
-
!ChangeList class methodsFor:'menu specs'!
listMenu
@@ -429,7 +425,6 @@
)
! !
-
!ChangeList class methodsFor:'plugIn spec'!
aspectSelectors
@@ -459,7 +454,6 @@
! !
-
!ChangeList methodsFor:'accessing'!
acceptEnabled
@@ -541,7 +535,6 @@
"Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'actions'!
selectionDoubleclicked
@@ -557,7 +550,6 @@
"Modified: / 24-01-2012 / 22:01:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'aspects'!
allowAcceptHolder
@@ -749,7 +741,6 @@
].
! !
-
!ChangeList methodsFor:'change & update'!
selectionChanged
@@ -791,7 +782,6 @@
"Modified: / 26-07-2012 / 18:44:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'drag & drop'!
canDrop: aDropContext
@@ -823,7 +813,6 @@
"Modified: / 01-08-2012 / 18:15:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'event processing'!
@@ -848,7 +837,6 @@
"Created: / 08-02-2012 / 14:42:18 / cg"
! !
-
!ChangeList methodsFor:'generators'!
makeGenerator
@@ -867,7 +855,6 @@
"Modified: / 24-10-2009 / 20:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'hooks'!
postBuildListView: aView
@@ -878,7 +865,6 @@
"Created: / 29-11-2011 / 14:56:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'initialization'!
initialize
@@ -893,7 +879,6 @@
"Created: / 29-10-2010 / 12:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'menu actions'!
listMenuApply
@@ -956,7 +941,7 @@
]
].
- browserClass := Smalltalk browserClass.
+ browserClass := environment browserClass.
methodsOnly
ifTrue:
[methods size = 1
@@ -1073,7 +1058,6 @@
self updateList
! !
-
!ChangeList methodsFor:'private'!
application
@@ -1229,7 +1213,6 @@
"Modified: / 01-08-2012 / 18:10:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList methodsFor:'queries'!
hasChangeSelected
@@ -1238,11 +1221,10 @@
!
hasChangeSelectedAndNotRemoved
+ | selection |
- | selection |
selection := self selectionHolder value ? #().
- ^selection size > 0 and:
- [selection allSatisfy:[:e|e removed not]].
+ ^selection size > 0 and: [selection conform:[:e|e removed not]].
!
hasSingleChangeSelected
@@ -1269,7 +1251,6 @@
"Created: / 03-04-2012 / 11:28:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList::ListEntry class methodsFor:'instance creation'!
change: aChange
@@ -1293,7 +1274,6 @@
"Created: / 25-07-2009 / 23:33:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
-
!ChangeList::ListEntry methodsFor:'accessing'!
application
@@ -1492,7 +1472,6 @@
^ x
! !
-
!ChangeList::ListEntry methodsFor:'displaying'!
displayLabel:aLabel h:lH on:aGC x:newX y:y h:h
@@ -1529,14 +1508,12 @@
"Modified: / 27-07-2012 / 17:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!ChangeList::ListEntry methodsFor:'private'!
iconSelector
^ application iconSelectorForChange:change
! !
-
!ChangeList::ListEntry methodsFor:'protocol-queries'!
hasChildren
@@ -1546,15 +1523,14 @@
"Modified (format): / 27-07-2012 / 21:25:34 / cg"
! !
-
!ChangeList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.24 2013-04-14 19:55:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.26 2013-09-05 23:18:30 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.24 2013-04-14 19:55:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.26 2013-09-05 23:18:30 cg Exp $'
!
version_HG
@@ -1563,6 +1539,6 @@
!
version_SVN
- ^ '§Id: Tools__ChangeList.st 7486 2009-10-26 22:06:24Z vranyj1 §'
+ ^ '$Id: Tools__ChangeList.st,v 1.26 2013-09-05 23:18:30 cg Exp $'
! !