--- a/ColoredListEntry.st Fri Nov 10 07:20:31 2006 +0100
+++ b/ColoredListEntry.st Mon Nov 13 17:11:31 2006 +0100
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libwidg2' }"
+
ListEntry subclass:#ColoredListEntry
instanceVariableNames:'color string bgColor'
classVariableNames:''
@@ -39,17 +41,17 @@
as entries of the list in a ListView or SelectionInListView.
Notice: this is a historic leftOver from times when the Text class
- was not available.
- Please do no longer use it (use Text right away).
+ was not available.
+ Please do no longer use it (use Text right away).
[author:]
- Claus Gittinger
+ Claus Gittinger
[see also:]
- Text
- ListView
- ListEntry
- String Color
+ Text
+ ListView
+ ListEntry
+ String Color
"
!
@@ -57,43 +59,43 @@
"
putting colored entries into a SelectionInListView
(instead of strings)'
- [exBegin]
- |v e myList tabs|
+ [exBegin]
+ |v e myList tabs|
- myList := OrderedCollection new.
+ myList := OrderedCollection new.
- myList add:(ColoredListEntry string:'red' color:Color red).
- myList add:(ColoredListEntry string:'green' color:Color green).
- myList add:(ColoredListEntry string:'blue' color:Color blue).
- myList add:(ColoredListEntry string:'white' color:Color white).
- myList add:(ColoredListEntry string:'black' color:Color black).
- myList add:(ColoredListEntry string:'yellow' color:Color yellow).
+ myList add:(ColoredListEntry string:'red' color:Color red).
+ myList add:(ColoredListEntry string:'green' color:Color green).
+ myList add:(ColoredListEntry string:'blue' color:Color blue).
+ myList add:(ColoredListEntry string:'white' color:Color white).
+ myList add:(ColoredListEntry string:'black' color:Color black).
+ myList add:(ColoredListEntry string:'yellow' color:Color yellow).
- v := SelectionInListView new.
- v setList:myList expandTabs:false.
- v open
- [exEnd]
+ v := SelectionInListView new.
+ v setList:myList expandTabs:false.
+ v open
+ [exEnd]
in a popUpList (sorry, Labels do not (yet) know how to display
non-strings.
- [exBegin]
- |v e myList selList tabs|
+ [exBegin]
+ |v e myList selList tabs|
- myList := OrderedCollection new.
+ myList := OrderedCollection new.
- myList add:(ColoredListEntry string:'red' color:Color red).
- myList add:(ColoredListEntry string:'green' color:Color green).
- myList add:(ColoredListEntry string:'blue' color:Color blue).
- myList add:(ColoredListEntry string:'white' color:Color white).
- myList add:(ColoredListEntry string:'black' color:Color black).
- myList add:(ColoredListEntry string:'yellow' color:Color yellow).
+ myList add:(ColoredListEntry string:'red' color:Color red).
+ myList add:(ColoredListEntry string:'green' color:Color green).
+ myList add:(ColoredListEntry string:'blue' color:Color blue).
+ myList add:(ColoredListEntry string:'white' color:Color white).
+ myList add:(ColoredListEntry string:'black' color:Color black).
+ myList add:(ColoredListEntry string:'yellow' color:Color yellow).
- selList := SelectionInList new list:myList.
+ selList := SelectionInList new list:myList.
- v := PopUpList on:selList.
- v open
- [exEnd]
+ v := PopUpList on:selList.
+ v open
+ [exEnd]
"
! !
@@ -111,10 +113,10 @@
string:aString foregroundColor:fgColor backgroundColor:bgColor
self obsoleteMethodWarning:'use Text>>emphasis:'.
- ^ Text
- string:aString
- emphasis:(Array with:(#color->fgColor)
- with:(#backgroundColor->bgColor))
+ ^ Text
+ string:aString
+ emphasis:(Array with:(#color->fgColor)
+ with:(#backgroundColor->bgColor))
"/ ^ self new string:aString foregroundColor:fgColor backgroundColor:bgColor
@@ -175,5 +177,5 @@
!ColoredListEntry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.13 1996-05-12 18:46:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/ColoredListEntry.st,v 1.14 2006-11-13 16:11:29 cg Exp $'
! !