hg/stx-libtool: comparison Tools_

equal deleted inserted replaced

-:3efd83b86c07
+:76f9a872362b
 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
 iconPlusGrayed
 ^ ToolbarIconLibrary iconPlusGray12x12
 "Modified: / 31-08-2011 / 10:54:46 / cg"
 ! !
 !ChangeList class methodsFor:'interface specs'!
 windowSpec
 "This resource specification was automatically generated
 	   )
 	)
 )
 ! !
 !ChangeList class methodsFor:'list specs'!
 listColumnSpec
 "This resource specification was automatically generated
 	 showColSeparator: false
 )
 )
 ! !
 !ChangeList class methodsFor:'menu specs'!
 listMenu
 "This resource specification was automatically generated
 	nil
 	nil
 )
 ! !
 !ChangeList class methodsFor:'plugIn spec'!
 aspectSelectors
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 	#showTimestampHolder
 ).
 ! !
 !ChangeList methodsFor:'accessing'!
 acceptEnabled
 ^ self allowAccept
 ^self showRemovedHolder value ? true
 "Created: / 05-12-2009 / 14:28:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList methodsFor:'actions'!
 selectionDoubleclicked
 "/        ifTrue:[app redrawChangeListViews].
 "Modified: / 24-01-2012 / 22:01:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList methodsFor:'aspects'!
 allowAcceptHolder
 "return/create the valueHolder 'acceptEnabledHolder'"
 oldValue ~~ newValue ifTrue:[
 	self update:#value with:newValue from:showTimestampHolder.
 ].
 ! !
 !ChangeList methodsFor:'change & update'!
 update: aspect with: param from: sender
 sender == allowRemoveHolder ifTrue:[
 "Created: / 24-10-2009 / 19:47:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified (format): / 27-12-2011 / 14:20:30 / cg"
 "Modified: / 26-07-2012 / 18:44:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList methodsFor:'drag & drop'!
 canDrop: aDropContext
 self inGeneratorHolder changed: #value
 "Modified: / 01-08-2012 / 18:15:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList methodsFor:'event processing'!
 handlesKeyPress:key inView:aView
-^(key == #Accept or:[ key == #Ctrls])
+<resource: #keyboard (#Accept #Ctrls)>
-	and:[ listView scrolledView == aView ]
+^(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 listMenuApply.
-	^ self
+^ self
 ].
 "Created: / 08-02-2012 / 14:42:18 / cg"
 ! !
 !ChangeList methodsFor:'generators'!
 makeGenerator
 "Superclass Tools::BrowserList says that I am responsible to implement this method"
 "Modified: / 24-07-2009 / 23:00:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
 "Modified: / 25-07-2012 / 15:39:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList methodsFor:'hooks'!
 postBuildListView: aView
 super postBuildListView: aView.
 listView scrolledView delegate: self.
 "Created: / 29-11-2011 / 14:56:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList methodsFor:'initialization'!
 initialize
 	applyAction := [:change | change apply ].
 ].
 "Created: / 29-10-2010 / 12:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList methodsFor:'menu actions'!
 listMenuApply
 |sel list idx|
 self selectionHolder value do:
 	[:each|each removed: false].
 self updateList
 ! !
 !ChangeList methodsFor:'private'!
 application
 "Modified: / 28-12-2011 / 15:46:15 / cg"
 "Modified: / 01-08-2012 / 18:10:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList methodsFor:'queries'!
 hasChangeSelected
 ^self selectionHolder value size > 0
 ^self showColumnSpecHolder value includes: columnSymbol.
 "Created: / 03-04-2012 / 11:28:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList::ListEntry class methodsFor:'instance creation'!
 change: aChange
 ^self new change: aChange
 ^self new change: aChange; parent: aChangeList
 "Created: / 25-07-2009 / 23:33:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 !ChangeList::ListEntry methodsFor:'accessing'!
 application
 ^ application ifNil:[super application]
 "Hack: if the printString contains multiple lines, then
 if there are just 2 lines, then merge them, otherwise add
 ... to the first line"
 (label includes: Character cr) ifTrue:[
-	| firstCR secondCR |
+| firstCR secondCR |
-	firstCR := label indexOf: Character cr.
+firstCR := label indexOf: Character cr.
-	firstCR ~~ label size ifTrue:[
+firstCR ~~ label size ifTrue:[
-	    secondCR := label indexOf: Character cr startingAt: firstCR + 1.
+secondCR := label indexOf: Character cr startingAt: firstCR + 1.
-	].
+].
-	secondCR isNil ifTrue:[
+secondCR isNil ifTrue:[
-	    "/2 lines only
+"/2 lines only
-	    label := label copy at: firstCR put: Character space.
+label := label copy at: firstCR put: Character space.
-	] ifFalse:[
+] ifFalse:[
-	    label := (label copyTo: firstCR - 1) , '...'
+label := (label copyTo: firstCR - 1) , '...'
-	].
+].
 ].
 self removed ifTrue:[label := label asText colorizeAllWith: Color gray].
 ^label
 "Created: / 05-11-2008 / 08:20:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 x
 ^ x
 ! !
 !ChangeList::ListEntry methodsFor:'displaying'!
 displayLabel:aLabel h:lH on:aGC x:newX y:y h:h
 "/    ].
 "Modified: / 27-07-2012 / 17:13:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !ChangeList::ListEntry methodsFor:'private'!
 iconSelector
 | delta |
 ^ nil.
 "Modified: / 31-08-2011 / 10:39:32 / cg"
 ! !
 !ChangeList::ListEntry methodsFor:'protocol-queries'!
 hasChildren
 ^ change isCompositeChange and:[change changes notEmptyOrNil ].
 "Created: / 04-12-2011 / 14:45:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "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 �'
 ! !

branch	jv
changeset 12405	76f9a872362b
parent 12292	ecc23f7c8dde
parent 12108	efa871deeab7
child 12406	1fbd331e4489