--- a/Tools__ChangeList.st Fri Apr 24 00:29:18 2015 +0100
+++ b/Tools__ChangeList.st Sat Apr 25 22:36:26 2015 +0100
@@ -869,24 +869,24 @@
handlesKeyPress:key inView:aView
<resource: #keyboard (#Accept #Ctrls)>
- (super handlesKeyPress:key inView:aView)
+ ^ (super handlesKeyPress:key inView:aView)
or:[(key == #Accept or:[ key == #Ctrls])
and:[ listView scrolledView == aView ]]
"Created: / 08-02-2012 / 14:43:11 / cg"
- "Modified: / 10-04-2014 / 11:31:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 24-04-2015 / 01:08:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
keyPress:key x:x y:y view:aView
(key == #Accept or:[ key == #Ctrls]) ifTrue:[
self listMenuApply.
- ^ self
+ ^ true
].
- super keyPress:key x:x y:y view:aView
+ ^ super keyPress:key x:x y:y view:aView
"Created: / 08-02-2012 / 14:42:18 / cg"
- "Modified: / 10-04-2014 / 11:31:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 24-04-2015 / 01:08:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeList methodsFor:'generators'!
@@ -1226,6 +1226,38 @@
"Created: / 05-12-2009 / 14:14:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+redrawList
+ listView notNil ifTrue:[
+ listView columnView invalidate.
+ ].
+
+ "Created: / 24-04-2015 / 00:50:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 25-04-2015 / 22:14:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+redrawListItem: item
+ | index |
+
+ listView notNil ifTrue:[
+ index := listView list identityIndexOf: item.
+ index ~~ 0 ifTrue:[
+ listView columnView invalidateRowAt: index.
+ ].
+ ]
+
+ "Created: / 25-04-2015 / 22:12:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+redrawListItemAt: index
+ listView notNil ifTrue:[
+ index ~~ 0 ifTrue:[
+ listView columnView invalidateRowAt: index.
+ ].
+ ]
+
+ "Created: / 25-04-2015 / 22:17:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
updateList
|inGenerator changeset firstLineShown oldSel newList newSel|
@@ -1519,6 +1551,9 @@
removed:aBoolean
change removed: aBoolean.
+ self redraw.
+
+ "Modified: / 25-04-2015 / 22:13:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
source
@@ -1642,6 +1677,15 @@
"Modified (format): / 27-07-2012 / 21:25:34 / cg"
! !
+!ChangeList::ListEntry methodsFor:'redrawing'!
+
+redraw
+ "Trigger redraw of reciver."
+ application redrawListItem: self
+
+ "Created: / 25-04-2015 / 22:10:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!ChangeList class methodsFor:'documentation'!
version
@@ -1652,6 +1696,11 @@
^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$Id: Tools__ChangeList.st,v 1.37 2015-02-26 01:06:39 cg Exp $'
! !