"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libtool' }"
"{ NameSpace: Tools }"
Object subclass:#ToDoListEntry
instanceVariableNames:'list stillValid severity priority timestamp message'
classVariableNames:''
poolDictionaries:''
category:'Interface-Smalltalk-ToDo'
!
!ToDoListEntry class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
! !
!ToDoListEntry methodsFor:'accessing'!
errorColor
^ Color rgbValue:16rCF0000
!
hasHighSeverity
^ (severity ? 0) >= (Tools::ToDoList errorSeverity)
!
list:something
list := something.
!
message
self hasHighSeverity ifTrue:[
^ message colorizeAllWith:self errorColor
].
^ message
!
message:something
message := something.
!
priority
^ priority ? 0
"Modified: / 22-10-2006 / 11:09:36 / cg"
!
priority:priorityOrPrioritySymbol
priorityOrPrioritySymbol isSymbol ifTrue:[
priorityOrPrioritySymbol == #low ifTrue:[
priority := ToDoList lowPriority.
^ self.
].
priorityOrPrioritySymbol == #medium ifTrue:[
priority := ToDoList mediumPriority.
^ self.
].
priorityOrPrioritySymbol == #high ifTrue:[
priority := ToDoList highPriority.
^ self.
].
self error:'bad argument'
].
priority := priorityOrPrioritySymbol.
!
priorityString
|s|
s := (priority ? 0) printString.
self hasHighSeverity ifTrue:[
^ s colorizeAllWith:self errorColor
].
^ s
"Modified: / 22-10-2006 / 11:09:36 / cg"
!
severity
^ severity ? 0
"Modified: / 22-10-2006 / 11:09:42 / cg"
!
severity:severityOrSeveritySymbol
severityOrSeveritySymbol isSymbol ifTrue:[
severityOrSeveritySymbol == #info ifTrue:[
severity := ToDoList infoSeverity.
^ self.
].
severityOrSeveritySymbol == #warning ifTrue:[
severity := ToDoList warningSeverity.
^ self.
].
severityOrSeveritySymbol == #error ifTrue:[
severity := ToDoList errorSeverity.
^ self.
].
self error:'bad argument'
].
severity := severityOrSeveritySymbol.
!
severity:severityArg priority:priorityArg timestamp:timestampArg message:messageArg
self severity:severityArg.
self priority:priorityArg.
timestamp := timestampArg.
message := messageArg.
!
severityString
|sev|
sev := self severity.
sev >= (Tools::ToDoList errorSeverity) ifTrue:[ ^ 'E' allBold colorizeAllWith:self errorColor].
sev >= (Tools::ToDoList warningSeverity) ifTrue:[ ^ 'W' ].
sev >= (Tools::ToDoList infoSeverity) ifTrue:[ ^ 'i' ].
^ ' '
"Modified: / 22-10-2006 / 11:09:42 / cg"
!
stillValid
^ stillValid ? true
"Created: / 21-10-2006 / 20:45:33 / cg"
!
time
^ timestamp asTime
"Created: / 21-10-2006 / 20:58:14 / cg"
!
timestamp
^ timestamp
! !
!ToDoListEntry methodsFor:'duplicate detection'!
isAlreadyPresentIn:aList
^ aList contains:[:anEntry | anEntry sameAs:self ].
"Created: / 21-10-2006 / 21:36:57 / cg"
!
sameAs:anotherEntry
self subclassResponsibility
"Created: / 21-10-2006 / 21:37:42 / cg"
!
sameAsCompilerWarningToDoListEntry:anotherEntry
^ false
"Created: / 21-10-2006 / 21:40:47 / cg"
! !
!ToDoListEntry methodsFor:'initialization'!
initialize
severity := Tools::ToDoList warningSeverity.
priority := Tools::ToDoList highPriority.
timestamp := Timestamp now.
message := 'Check this'
"Created: / 20-11-2006 / 15:00:39 / cg"
! !
!ToDoListEntry methodsFor:'misc'!
browse
self subclassResponsibility
"Created: / 22-10-2006 / 01:37:42 / cg"
! !
!ToDoListEntry methodsFor:'printing & storing'!
printOn:aStream
aStream nextPutAll:message
"Created: / 21-10-2006 / 23:13:39 / cg"
! !
!ToDoListEntry methodsFor:'validation'!
checkIfStillValid
self subclassResponsibility
"Created: / 21-10-2006 / 21:30:29 / cg"
!
revalidate
self checkIfStillValid ifFalse:[
stillValid := false.
list removeIdentical:self ifAbsent:[].
Smalltalk removeDependent:self.
].
"Created: / 21-10-2006 / 20:46:03 / cg"
"Modified: / 21-10-2006 / 22:00:52 / cg"
! !
!ToDoListEntry class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libtool/Tools__ToDoListEntry.st,v 1.8 2008-08-20 19:41:35 cg Exp $'
! !