equal
deleted
inserted
replaced
4092 firstLine := (logMsg upTo:Character cr). |
4092 firstLine := (logMsg upTo:Character cr). |
4093 ((firstLine startsWith:'#') not or:[ (firstLine startsWith:'#BUGFIX') ]) ifTrue:[ |
4093 ((firstLine startsWith:'#') not or:[ (firstLine startsWith:'#BUGFIX') ]) ifTrue:[ |
4094 color := Color red. |
4094 color := Color red. |
4095 ] ifFalse:[ |
4095 ] ifFalse:[ |
4096 (firstLine startsWith:'#DOCUMENTATION') ifTrue:[ |
4096 (firstLine startsWith:'#DOCUMENTATION') ifTrue:[ |
4097 color := Color grey. |
4097 color := Color gray. |
4098 ]. |
4098 ]. |
4099 ]. |
4099 ]. |
4100 ]. |
4100 ]. |
4101 logMsg asCollectionOfLines do:[:eachLine | |
4101 logMsg asCollectionOfLines do:[:eachLine | |
4102 aStream tab. |
4102 aStream tab. |
4582 |
4582 |
4583 displayStringForManagerTypeName |
4583 displayStringForManagerTypeName |
4584 ^ self manager isNil |
4584 ^ self manager isNil |
4585 ifFalse:[ managerTypeName ] |
4585 ifFalse:[ managerTypeName ] |
4586 ifTrue: |
4586 ifTrue: |
4587 [ (managerTypeName , ' (unavailable)') withColor:Color gray ]. |
4587 [ (managerTypeName , ' (unavailable)') allGray ]. |
4588 |
4588 |
4589 "Created: / 09-07-2011 / 14:05:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4589 "Created: / 09-07-2011 / 14:05:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4590 ! |
4590 ! |
4591 |
4591 |
4592 displayStringForPackage |
4592 displayStringForPackage |
4593 ^ self manager isNil |
4593 ^ self manager isNil |
4594 ifTrue:[ package withColor:Color gray ] |
4594 ifTrue:[ package allGray ] |
4595 ifFalse:[ package ] |
4595 ifFalse:[ package ] |
4596 |
4596 |
4597 "Created: / 09-07-2011 / 14:05:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4597 "Created: / 09-07-2011 / 14:05:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
4598 "Modified: / 03-12-2011 / 11:31:49 / cg" |
4598 "Modified: / 03-12-2011 / 11:31:49 / cg" |
4599 ! ! |
4599 ! ! |