diff -r 3efd83b86c07 -r 76f9a872362b Tools__ChangeList.st
--- a/Tools__ChangeList.st	Mon Jan 28 21:19:21 2013 +0000
+++ b/Tools__ChangeList.st	Fri Feb 08 08:35:48 2013 +0100
@@ -72,6 +72,7 @@
 "
 ! !
 
+
 !ChangeList class methodsFor:'image specs'!
 
 iconEqual
@@ -110,6 +111,7 @@
     "Modified: / 31-08-2011 / 10:54:46 / cg"
 ! !
 
+
 !ChangeList class methodsFor:'interface specs'!
 
 windowSpec
@@ -181,6 +183,7 @@
       )
 ! !
 
+
 !ChangeList class methodsFor:'list specs'!
 
 listColumnSpec
@@ -294,6 +297,7 @@
 
 ! !
 
+
 !ChangeList class methodsFor:'menu specs'!
 
 listMenu
@@ -416,6 +420,7 @@
       )
 ! !
 
+
 !ChangeList class methodsFor:'plugIn spec'!
 
 aspectSelectors
@@ -444,6 +449,7 @@
 
 ! !
 
+
 !ChangeList methodsFor:'accessing'!
 
 acceptEnabled
@@ -525,6 +531,7 @@
     "Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList methodsFor:'actions'!
 
 selectionDoubleclicked
@@ -540,6 +547,7 @@
     "Modified: / 24-01-2012 / 22:01:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList methodsFor:'aspects'!
 
 allowAcceptHolder
@@ -702,6 +710,7 @@
     ].
 ! !
 
+
 !ChangeList methodsFor:'change & update'!
 
 update: aspect with: param from: sender
@@ -737,6 +746,7 @@
     "Modified: / 26-07-2012 / 18:44:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList methodsFor:'drag & drop'!
 
 canDrop: aDropContext
@@ -768,6 +778,7 @@
     "Modified: / 01-08-2012 / 18:15:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList methodsFor:'event processing'!
 
 
@@ -775,21 +786,26 @@
 
 
 handlesKeyPress:key inView:aView
-    ^(key == #Accept or:[ key == #Ctrls])
-	and:[ listView scrolledView == aView ]
+    <resource: #keyboard (#Accept #Ctrls)>
+
+    ^(key == #Accept or:[ key == #Ctrls]) 
+        and:[ listView scrolledView == aView ]
 
     "Created: / 08-02-2012 / 14:43:11 / cg"
 !
 
 keyPress:key x:x y:y view:aView
+    <resource: #keyboard (#Ctrls #Accept)>
+
     (key == #Accept or:[ key == #Ctrls]) ifTrue:[
-	self listMenuApply.
-	^ self
+        self listMenuApply.
+        ^ self
     ].
 
     "Created: / 08-02-2012 / 14:42:18 / cg"
 ! !
 
+
 !ChangeList methodsFor:'generators'!
 
 makeGenerator
@@ -808,6 +824,7 @@
     "Modified: / 25-07-2012 / 15:39:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList methodsFor:'hooks'!
 
 postBuildListView: aView
@@ -818,6 +835,7 @@
     "Created: / 29-11-2011 / 14:56:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList methodsFor:'initialization'!
 
 initialize
@@ -832,6 +850,7 @@
     "Created: / 29-10-2010 / 12:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList methodsFor:'menu actions'!
 
 listMenuApply
@@ -1006,6 +1025,7 @@
     self updateList
 ! !
 
+
 !ChangeList methodsFor:'private'!
 
 application
@@ -1145,6 +1165,7 @@
     "Modified: / 01-08-2012 / 18:10:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList methodsFor:'queries'!
 
 hasChangeSelected
@@ -1183,6 +1204,7 @@
     "Created: / 03-04-2012 / 11:28:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList::ListEntry class methodsFor:'instance creation'!
 
 change: aChange
@@ -1206,6 +1228,7 @@
     "Created: / 25-07-2009 / 23:33:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+
 !ChangeList::ListEntry methodsFor:'accessing'!
 
 application
@@ -1325,17 +1348,17 @@
      if there are just 2 lines, then merge them, otherwise add
      ... to the first line"
     (label includes: Character cr) ifTrue:[
-	| firstCR secondCR |
-	firstCR := label indexOf: Character cr.
-	firstCR ~~ label size ifTrue:[
-	    secondCR := label indexOf: Character cr startingAt: firstCR + 1.
-	].
-	secondCR isNil ifTrue:[
-	    "/2 lines only
-	    label := label copy at: firstCR put: Character space.
-	] ifFalse:[
-	    label := (label copyTo: firstCR - 1) , '...'
-	].
+        | firstCR secondCR |
+        firstCR := label indexOf: Character cr.
+        firstCR ~~ label size ifTrue:[
+            secondCR := label indexOf: Character cr startingAt: firstCR + 1.
+        ].
+        secondCR isNil ifTrue:[
+            "/2 lines only
+            label := label copy at: firstCR put: Character space.
+        ] ifFalse:[
+            label := (label copyTo: firstCR - 1) , '...'
+        ].
     ].
     self removed ifTrue:[label := label asText colorizeAllWith: Color gray].
     ^label
@@ -1389,6 +1412,7 @@
     ^ x
 ! !
 
+
 !ChangeList::ListEntry methodsFor:'displaying'!
 
 displayLabel:aLabel h:lH on:aGC x:newX y:y h:h
@@ -1425,6 +1449,7 @@
     "Modified: / 27-07-2012 / 17:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !ChangeList::ListEntry methodsFor:'private'!
 
 iconSelector
@@ -1440,6 +1465,7 @@
     "Modified: / 31-08-2011 / 10:39:32 / cg"
 ! !
 
+
 !ChangeList::ListEntry methodsFor:'protocol-queries'!
 
 hasChildren
@@ -1449,16 +1475,18 @@
     "Modified (format): / 27-07-2012 / 21:25:34 / cg"
 ! !
 
+
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.19 2012/09/10 12:16:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.20 2013-01-17 10:40:20 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.19 2012/09/10 12:16:47 cg Exp §'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.20 2013-01-17 10:40:20 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeList.st 8054 2012-09-13 09:15:20Z vranyj1 $'
+    ^ '§Id: Tools__ChangeList.st 7486 2009-10-26 22:06:24Z vranyj1 §'
 ! !
+