--- 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 §'
! !
+